From 160516e3e64c0c31e3a4a7953a7969d7a68d161f Mon Sep 17 00:00:00 2001 From: toins Date: Thu, 13 Jul 2006 08:13:37 +0000 Subject: [PATCH] replace an array to a hash --- serials/subscription-bib-search.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl index 1620ed8ba0..78cbc4db71 100755 --- a/serials/subscription-bib-search.pl +++ b/serials/subscription-bib-search.pl @@ -179,11 +179,10 @@ if ($op eq "do_search") { my %itemtypes = GetItemTypes(); my @values = values %itemtypes; - my @labels = keys %itemtypes; my $CGIitemtype=CGI::scrolling_list( -name => 'value', -values => \@values, - -labels => \@labels, + -labels => \%itemtypes, -size => 1, -multiple => 0 ); -- 2.39.5