[Koha-patches] [PATCH] Bug 2505: Quieting warns in acqui/z3950_search.pl

[Chris Cormack]

Signed-off-by: Chris Cormack <chrisc at catalyst.net.nz>
---
 acqui/z3950_search.pl |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 7f04754..015aac6 100755
--- 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;
 }
-- 
1.7.0.4