annotate BoosterPack/scripts/.svn/text-base/pjx_url.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 script of how you would use URLs to define
rlm@0 4 # your CGI::Ajax functions.
rlm@0 5
rlm@0 6 use strict;
rlm@0 7 use CGI::Ajax;
rlm@0 8 use CGI;
rlm@0 9
rlm@0 10 my $q = new CGI;
rlm@0 11
rlm@0 12 # the format here implies that 'convert_degrees.pl' is at the same
rlm@0 13 # level in the web server's document root as this script.
rlm@0 14 my $pjx = CGI::Ajax->new( 'myfunc' => 'convert_degrees.pl');
rlm@0 15 $pjx->JSDEBUG(1);
rlm@0 16
rlm@0 17 my $Show_Form = sub {
rlm@0 18 my $html = "";
rlm@0 19 $html .= <<EOT;
rlm@0 20 <HTML>
rlm@0 21 <HEAD><title>CGI::Ajax Outside URL Example</title>
rlm@0 22 </HEAD>
rlm@0 23 <BODY>
rlm@0 24 <form>
rlm@0 25 Degrees Centigrade:&nbsp;
rlm@0 26 <input type="text" name="val1" id="val1" size="6"
rlm@0 27 onkeyup="myfunc( ['Centigrade__' + getVal('val1')], ['val2'] );
rlm@0 28 return true;">
rlm@0 29 <br/>
rlm@0 30
rlm@0 31 Degrees Kelvin:&nbsp;
rlm@0 32 <input type="text" name="val2" id="val2" size="6"
rlm@0 33 onkeyup="myfunc( ['Kelvin__' + getVal('val2')], ['val1'] );
rlm@0 34 return true;">
rlm@0 35 </form>
rlm@0 36 </BODY>
rlm@0 37 </HTML>
rlm@0 38 EOT
rlm@0 39
rlm@0 40 return $html;
rlm@0 41 };
rlm@0 42
rlm@0 43 print $pjx->build_html($q,$Show_Form); # this outputs the html for the page