0;i--)
+ what.form.popnum.options[i] = null;
+ what.form.popnum.options[0] = new Option("City", "-1", false, true);
+
+END
+
+ foreach my $state ( keys %pop ) {
+ foreach my $popac ( keys %{ $pop{$state} } ) {
+ $text .= "\nif ( ac == \"$popac\" ) {\n";
+
+ foreach my $pop ( @{$pop{$state}->{$popac}}) {
+ my $o_popnum = $pop->{popnum};
+ my $poptext = $pop->{city}. ', '. $pop->{state}.
+ ' ('. $pop->{ac}. ')/'. $pop->{exch};
+
+ $text .= "opt(what.form.popnum, \"$o_popnum\", \"$poptext\");\n";
+ if ($popnum == $o_popnum) {
+ $text .= "what.form.popnum.options[what.form.popnum.length-1].selected = true;\n";
+ }
+ }
+ $text .= "}\n";
+ }
+ }
+
$text .= "}\n\n";
$text .=
- qq!'; #callback? return 3 html pieces? #'';
+ qq!'; #callback? return 3 html pieces? #' | ';
- $text .= qq! !;
+
+ $text .= qq! ';
+
+ $text .= qq! | !;
$text;
+
}
sub expselect {
|