From d082b28ba7d23e659b338f762a7d7d89ec5174ba Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Wed, 14 Jul 2010 16:32:42 +1200
Subject: [PATCH] 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>
---
 acqui/z3950_search.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 7f04754d12..015aac6b23 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;
 }
-- 
2.39.2