below is what i've worked out so far, just not sure how the next step needs
to be done.

i'm building a dropdown list ($dropdown) consisting of a number of options
($dropdown_value); once a value is selected i want to immediately create and
display a form consisting of data relevant to that $dropdown_value ("Camps"
will show certain data, "Electives" will show different data, etc.).

my question is: how do i exit from the javascript function ("alert" will be
replaced with the appropriate functionality) back to perl to call "sub
build_data_display"?

thanks,
joe




#!/usr/bin/perl

use strict;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

my $data_display = "";

#    build dropdown list of main data groupings
my    $dropdown = "<select name=\"datagroup\" onChange='alert(\"you chose \"
+ datagroup.value)'>";
for my $dropdown_value ("", "Camps", "Electives", "Faculty", "Levels",
"Memorabilia", "Sightreading Skills", "Students", "Workshops")
{
   my $selected = param("datagroup") eq $dropdown_value ? "selected" : "";
   $dropdown .= "<option $selected
value=\"$dropdown_value\">$dropdown_value</option>";
}
$dropdown .= "</select>";

#    begin displaying web page
print header("text/html");
print start_html( -title=>"Administrative Page",
       -script=>{-language=>'javascript'}
   );
print start_form();

print "$dropdown";
print "$data_display";

print end_form();
print end_html


##### SUBROUTINES #####

# this will build the appropriate display for the desired data
sub build_data_display
{
}

--
since this is a gmail account, please verify the mailing list is included in
the reply to addresses

Reply via email to