I am trying to create a popup menu in a CGI script with
a default but I'm having difficulty with setting the default value.
Here is my code:
@values = sort numerically keys %ProgramAreas;
$default = $ProgramAreas{$ComponentAreas{$ComponentID}};
print '<TD ALIGN="right"><B>Program Area:</B></TD><TD ALIGN=
+"left">',
popup_menu( -name=> 'ComponentProgramArea',
-values=> \@values,
-defaults=> \$default,
-labels=> \%ProgramAreas),
"</TD><BR><BR><BR>\n";
ProgramAreas is a hash that is used in a few other places
and I know that it contains useful and legal data.
$default gets assigned a real, legal value based on a
print statement I threw in as a diagnostic.
However, when the menu is displayed the default value is the
first item in @values and not $default.
What obvious piece am I missing?