Mercurial > rlmcintyre
diff BoosterPack/scripts/.svn/text-base/pjx_combo.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 |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/BoosterPack/scripts/.svn/text-base/pjx_combo.pl.svn-base Mon Sep 27 16:57:26 2010 -0400 1.3 @@ -0,0 +1,146 @@ 1.4 +#!C:/strawberry/perl/bin/perl.exe 1.5 + 1.6 +# CGI-Ajax: example script 'pjx_combo.pl' 1.7 +# 1.8 +# INSTALL: place in an apache location that can execute perl scripts 1.9 +# 1.10 +# this script demonstrates a set of dynamic select boxes, where the 1.11 +# selection in a box changes other select box contents, or html div 1.12 +# values. The data in each select box comes from the data anonymous 1.13 +# hash, but could just as easily come from a database connection, etc. 1.14 +# 1.15 +# N.B. this requires CGI__Ajax version >=0.49 1.16 +# 1.17 +# Also, this example has lots of stderr output, so follow your apache 1.18 +# log files to see what's going on. 1.19 +# 1.20 +use strict; 1.21 +use CGI::Ajax 0.49; 1.22 +use CGI; 1.23 +use vars qw( $data ); 1.24 + 1.25 +# This is our data - top level keys get put in the leftmost select 1.26 +# box, next level of keys get the second select box. Values will end 1.27 +# up in the resultdiv html element 1.28 +$data = { 1.29 + 'A' => { '1' => "A1", '2' => "A2", '3' => "A3", '42' => "A42" }, 1.30 + 'B' => { 'green' => "Bgreen", 'red' => "Bred" }, 1.31 + 'something' => { 'firefly' => "great show" }, 1.32 + 'final_thing' => { 'email' => "chunkeylover53", 'name' => "homer", 1.33 + 'address' => "742 Evergreen Terrace" } 1.34 +}; 1.35 + 1.36 +my $q = new CGI; # need a new CGI object 1.37 + 1.38 +# compose our list of functions to export to js 1.39 +my %hash = ( 'SetA' => \&set_listA, 1.40 + 'SetB' => \&set_listB, 1.41 + 'ShowResult' => \&show_result ); 1.42 + 1.43 +my $pjx = CGI::Ajax->new( %hash ); # this is our CGI::Ajax object 1.44 +$pjx->js_encode_function('encodeURIComponent'); 1.45 + 1.46 +$pjx->DEBUG(1); # turn on debugging 1.47 +$pjx->JSDEBUG(1); # turn on javascript debugging, which will place a 1.48 + # new div element at the bottom of our page showing 1.49 + # the asynchrously requested URL 1.50 + 1.51 +print $pjx->build_html( $q, \&Show_HTML ); # this builds our html 1.52 + # page, inserting js 1.53 + 1.54 +# This subroutine is responsible for outputting the HTML of the web 1.55 +# page. Note that I've added an additional javascript function to 1.56 +# erase/reset contents. This prevents strange effects from 1.57 +# overwriting a div without clearing it out first. 1.58 +sub Show_HTML { 1.59 + my $html = <<EOT; 1.60 +<HTML> 1.61 +<HEAD><title>Combo Example</title> 1.62 +<SCRIPT> 1.63 + 1.64 +// define some reset functions to properly clear out the divs 1.65 +function resetdiv( ) { 1.66 + if ( arguments.length ) { 1.67 + // reset a specific div 1.68 + for(var i = 0; i < arguments.length; i++ ) { 1.69 + document.getElementById(arguments[i]).innerHTML = ""; 1.70 + } 1.71 + } else { 1.72 + // just reset all the divs 1.73 + document.getElementById("listAdiv").innerHTML = ""; 1.74 + document.getElementById("listBdiv").innerHTML = ""; 1.75 + document.getElementById("resultdiv").innerHTML = ""; 1.76 + } 1.77 +} 1.78 + 1.79 +</SCRIPT> 1.80 + 1.81 +</HEAD> 1.82 +<BODY onload="resetdiv(); SetA([],['listAdiv']); return true;" > 1.83 +<form> 1.84 + <div id="listAdiv"></div> 1.85 + <div id="listBdiv"></div> 1.86 + <div id="resultdiv" style="border: 1px solid black; width: 240px; height: 80px; overflow: auto"> 1.87 + </div> 1.88 + <input type="text" name="textfield"> 1.89 + <input type="submit" name="Submit" value="Submit" 1.90 + 1.91 + </form> 1.92 +</BODY> 1.93 +</HTML> 1.94 +EOT 1.95 + 1.96 + return($html); 1.97 +} 1.98 + 1.99 +# these are my exported functions - note that set_listA and set_listB 1.100 +# are just returning html to be inserted into their respective div 1.101 +# elements. 1.102 +sub set_listA { 1.103 + # this is the returned text... html to be displayed in the div 1.104 + # defined in the javascript call 1.105 + my $txt = qq!<select id="listA" name="listA_name" size=3!; 1.106 + $txt .= qq! onclick="resetdiv('resultdiv'); SetB( ['listA'], ['listBdiv'] ); return true;">!; 1.107 + # get values from $data, could also be a db lookup 1.108 + foreach my $topval ( keys %$data ) { 1.109 + $txt .= '<option value='. $topval . '>'. $topval .' </option>'; 1.110 + } 1.111 + $txt .= "</select>"; 1.112 + print STDERR "set_listA:\n"; 1.113 + print STDERR "returning $txt\n"; 1.114 + return($txt); 1.115 +} 1.116 + 1.117 +sub set_listB { 1.118 + my $listA_selection = shift; 1.119 + print STDERR "set_listB: received $listA_selection .\n"; 1.120 + 1.121 + # this is the returned text... html to be displayed in the div 1.122 + # defined in the javascript call 1.123 + my $txt = qq!<select multiple id="listB" name="listB_name" size=3 style="width: 140px"!; 1.124 + $txt .= qq! onclick="ShowResult( ['listA','listB'], ['resultdiv'] ); return true;">!; 1.125 + 1.126 + # get values from $data, could also be a db lookup 1.127 + foreach my $midval ( keys %{ $data->{ $listA_selection } } ) { 1.128 + $txt .= '<option value=' . $midval . '>' . $midval . "</option>"; 1.129 + } 1.130 + $txt .= "</select>"; 1.131 + print STDERR "set_listB:\n"; 1.132 + print STDERR "returning $txt\n"; 1.133 + return($txt); 1.134 +} 1.135 + 1.136 +sub show_result { 1.137 + my $listA_selection = shift; 1.138 + my $txt = ""; 1.139 + # this loop is needed in case the user selected multiple elements in 1.140 + # the second select box, listB 1.141 + while ( @_ ) { 1.142 + my $in = shift; 1.143 + $txt .= $data->{ $listA_selection }->{ $in } . "<br>"; 1.144 + } 1.145 + 1.146 + print STDERR "show_result - returning txt with value: $txt\n"; 1.147 + return( $txt ); 1.148 +} 1.149 +