replace an array to a hash

diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl
index 1620ed8..78cbc4d 100755 (executable)
--- 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
     );