From cb06075e77d76d4ac6cd455a60b95e0e11951264 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Wed, 14 Jul 2010 16:32:44 +1200 Subject: [PATCH] wr72054 fixing the z3950 search for acquisitions Signed-off-by: Chris Cormack Signed-off-by: Galen Charlton --- acqui/z3950_search.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl index 015aac6b23..1238e16ae2 100755 --- a/acqui/z3950_search.pl +++ b/acqui/z3950_search.pl @@ -90,10 +90,10 @@ 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'; } @@ -247,8 +247,8 @@ sub displayresults { # In rel2_2 i am not sure what encoding is so no character conversion is done here ##Add necessary encoding changes to here -TG my $oldbiblio = TransformMarcToKoha( $dbh, $marcrecord, "" ); - $oldbiblio->{isbn} =~ s/ |-|\.//g, - $oldbiblio->{issn} =~ s/ |-|\.//g, + $oldbiblio->{isbn} =~ s/ |-|\.//g if $oldbiblio->{isbn}; + $oldbiblio->{issn} =~ s/ |-|\.//g if $oldbiblio->{issn}; my ( $notmarcrecord, $alreadyindb, $alreadyinfarm, $imported, $breedingid @@ -284,14 +284,13 @@ sub displayresults { server => $servername[$k], numberpending => $numberpending, ); - output_html_with_http_headers $input, $cookie, $template->output if $numberpending == 0; # print $template->output if $firstresult !=1; $firstresult++; } displayresults(); -if ( --$nremaining > 0 ) { +while ( --$nremaining > 0 ) { displayresults(); } } ## if op=search -- 2.39.2