#!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 @item2 = qw(1 2 3 4 5);
my $html = '
CGI::Ajax Example
';
$html .= '
\n";
$html .= '';
$html .= '
\n";
$html .= '';
$html .= '
';
print $pjx->build_html($cgi,$html);
sub populate_list_box {
my @array = @_;
my $htmlCode = "";
foreach (@array) {
my $selected = "";
$htmlCode .= "\n";
}
return $htmlCode;
}
sub update_options {
my $input = shift;
my @item2 = qw(11 12 13 14 15);
my $html = ' \n";
return $html;
}
sub update_options2 {
my $input = shift;
return $input;
}