# 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.
#
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;
}