replace an array to a hash
This commit is contained in:
parent
9565922f3e
commit
160516e3e6
1 changed files with 1 additions and 2 deletions
|
@ -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
|
||||||
);
|
);
|
||||||
|
|
Loading…
Reference in a new issue