gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Chris Cormack 2010-07-14 16:32:42 +12:00 committed by Galen Charlton
parent f74e86ca30
commit d082b28ba7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
acqui/z3950_search.pl
View File

@ -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;
}