From 160516e3e64c0c31e3a4a7953a7969d7a68d161f Mon Sep 17 00:00:00 2001
From: toins <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