Bug 2505: Quieting warns in acqui/z3950_search.pl

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 7f04754..015aac6 100755 (executable)
--- a/acqui/z3950_search.pl
+++ b/acqui/z3950_search.pl
@@ -2,6 +2,7 @@
 
 # This is a completely new Z3950 clients search using async ZOOM -TG 02/11/06
 # Copyright 2000-2002 Katipo Communications
+# Copyright 2010 Catalyst IT
 #
 # This file is part of Koha.
 #
@@ -89,12 +90,12 @@ my $DEBUG = 0;    # if set to 1, many debug message are send on syslog.
 my $frameworks = getframeworks;
 my @frameworkcodeloop;
 foreach my $thisframeworkcode ( keys %$frameworks ) {
-    my $row = {
+    my %row = {
         value         => $thisframeworkcode,
         frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'},
     };
-    if ( $row->{'value'} eq $frameworkcode){
-        $row->{'active'} = 'true';
+    if ( $row{'value'} eq $frameworkcode){
+        $row{'active'} = 'true';
     }
     push @frameworkcodeloop, $row;
 }