Re: cgi and update event

Using cgi::ajax this is what I have as my test script. I'm still not sure how I can update the contents of the second list box???

#!C:/Perl/bin/perl.exe

use strict;
use warnings;

use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $pjx = new CGI::Ajax( 'update' => \&update_options,
                         'update2' => \&update_options2);

my @item1 = qw(1 2 3 4 5);
 
my $html = '<HTML>
<HEAD><title>CGI::Ajax Example</title>
</HEAD>
<BODY>';

$html .= '<SELECT name=\"TEST\" id="val1" onchange="update( [\'val1\',
+\'NO_CACHE\'], [\'resultdiv\'] );">\n';
$html .= populate_list_box(@item1);
$html .= "</SELECT><BR>\n";

$html .= '<div id="resultdiv"></div><hr>';

$html .= '<SELECT name=\"TEST\" id="val2" onchange="update2( [\'val2\'
+,\'NO_CACHE\'], [\'resultdiv2\'] );">\n';
$html .= populate_list_box(@item1);
$html .= "</SELECT><BR>\n";

$html .= '<div id="resultdiv2"></div>';

$html .= '
</BODY>
</HTML>';

print $pjx->build_html($cgi,$html);

sub populate_list_box {

    my @array = @_;

    my $htmlCode = "";

    foreach (@array) {
    my $selected = "";
    $htmlCode .= "<option value=\"$_\" $selected>$_</option>\n";
    }
    return $htmlCode;
}




sub update_options {

    my $input = shift;

    # Not sure what to do here in order to update the second array cho
+ices to: (10 11 12 13 14 15)

    return $input;
}

sub update_options2 {
    my $input = shift;

    return $input;
}
[download]

Thanks for the help

Comment on Re: cgi and update event Download Code