Mercurial > rlmcintyre
annotate BoosterPack/scripts/.svn/text-base/pjx_subs.pl.svn-base @ 0:0d795f02a8bb tip
initial committ. what was I thinking?
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Mon, 27 Sep 2010 16:57:26 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| rlm@0 | 2 |
| rlm@0 | 3 # this is an example of using subs (not coderefs) for your perljax |
| rlm@0 | 4 # functions |
| rlm@0 | 5 # |
| rlm@0 | 6 # NB The CGI::Ajax object DOES NOT need to follow the function |
| rlm@0 | 7 # declarations, as it does in the coderef example |
| rlm@0 | 8 |
| rlm@0 | 9 use strict; |
| rlm@0 | 10 use CGI::Ajax; |
| rlm@0 | 11 use CGI; |
| rlm@0 | 12 |
| rlm@0 | 13 my $q = new CGI; |
| rlm@0 | 14 my $pjx = CGI::Ajax->new( 'myfunc' => \&exported_fx); |
| rlm@0 | 15 print $pjx->build_html($q,\&Show_Form); # this outputs the html for the page |
| rlm@0 | 16 |
| rlm@0 | 17 sub exported_fx { |
| rlm@0 | 18 my $value_a = shift; |
| rlm@0 | 19 my $value_b = shift; |
| rlm@0 | 20 $value_a = "" if not defined $value_a; # make sure there's def |
| rlm@0 | 21 $value_b = "" if not defined $value_b; # make sure there's def |
| rlm@0 | 22 |
| rlm@0 | 23 if ( $value_a =~ /\D+/ or $value_a eq "" ) { |
| rlm@0 | 24 return( $value_a . " and " . $value_b ); |
| rlm@0 | 25 } elsif ( $value_b =~ /\D+/ or $value_b eq "" ) { |
| rlm@0 | 26 return( $value_a . " and " . $value_b ); |
| rlm@0 | 27 } else { |
| rlm@0 | 28 # got two numbers, so lets multiply them together |
| rlm@0 | 29 return( $value_a * $value_b ); |
| rlm@0 | 30 } |
| rlm@0 | 31 } |
| rlm@0 | 32 |
| rlm@0 | 33 sub Show_Form { |
| rlm@0 | 34 my $html = ""; |
| rlm@0 | 35 $html .= <<EOT; |
| rlm@0 | 36 <HTML> |
| rlm@0 | 37 <HEAD><title>CGI::Ajax Example</title> |
| rlm@0 | 38 </HEAD> |
| rlm@0 | 39 <BODY> |
| rlm@0 | 40 <form> |
| rlm@0 | 41 Enter something: |
| rlm@0 | 42 <input type="text" name="val1" id="val1" size="6" onkeyup="myfunc( ['val1','val2'], ['resultdiv'] );"><br> |
| rlm@0 | 43 |
| rlm@0 | 44 Enter something else: |
| rlm@0 | 45 <input type="text" name="val2" id="val2" size="6" onkeyup="myfunc( ['val1','val2'], ['resultdiv'] );"><br> |
| rlm@0 | 46 |
| rlm@0 | 47 <hr> |
| rlm@0 | 48 <div id="resultdiv" style="border: 1px solid black; width: 440px; height: 80px; overflow: auto"> |
| rlm@0 | 49 </div> |
| rlm@0 | 50 </form> |
| rlm@0 | 51 </BODY> |
| rlm@0 | 52 </HTML> |
| rlm@0 | 53 EOT |
| rlm@0 | 54 return $html; |
| rlm@0 | 55 } |