replace an array to a hash

This commit is contained in:
toins 2006-07-13 08:13:37 +00:00
parent 9565922f3e
commit 160516e3e6

View file

@ -179,11 +179,10 @@ if ($op eq "do_search") {
my %itemtypes = GetItemTypes(); my %itemtypes = GetItemTypes();
my @values = values %itemtypes; my @values = values %itemtypes;
my @labels = keys %itemtypes;
my $CGIitemtype=CGI::scrolling_list( my $CGIitemtype=CGI::scrolling_list(
-name => 'value', -name => 'value',
-values => \@values, -values => \@values,
-labels => \@labels, -labels => \%itemtypes,
-size => 1, -size => 1,
-multiple => 0 -multiple => 0
); );