From d082b28ba7d23e659b338f762a7d7d89ec5174ba Mon Sep 17 00:00:00 2001 From: Chris Cormack 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 Signed-off-by: Galen Charlton --- 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.5