rlm@0: #!C:/strawberry/perl/bin/perl.exe rlm@0: use strict; rlm@0: use CGI::Ajax; rlm@0: use CGI; rlm@0: rlm@0: my $q = new CGI; rlm@0: rlm@0: my $concatter = sub { rlm@0: my $str = "All Values Are
\n"; rlm@0: map { $str .= ' and ' . $_ } @_; rlm@0: print STDERR $str; rlm@0: return $str; rlm@0: }; rlm@0: rlm@0: my $Show_Form = sub { rlm@0: my $html = ""; rlm@0: $html = < rlm@0: CGI::Ajax Multiple Return Value Example rlm@0: rlm@0: rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0: rlm@0:
rlm@0: rlm@0:
rlm@0:
rlm@0: rlm@0: rlm@0:
rlm@0: rlm@0: rlm@0: EOT rlm@0: ; rlm@0: rlm@0: return $html; rlm@0: }; rlm@0: rlm@0: rlm@0: my $pjx = CGI::Ajax->new( 'jsFunc' => $concatter); rlm@0: $pjx->JSDEBUG(2); rlm@0: $pjx->DEBUG(1); rlm@0: print $pjx->build_html($q,$Show_Form); # this outputs the html for the page