[Koha-cvs] koha/z3950 search.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	06/02/01 09:24:04

Modified files:
	z3950          : search.pl 

Log message:
	fixing a bug when z3950'ing an existing biblio

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/z3950/search.pl.diff?only_with_tag=rel_2_2&tr1=1.3.2.1&tr2=1.3.2.2&r1=text&r2=text

Patches:
Index: koha/z3950/search.pl
diff -u koha/z3950/search.pl:1.3.2.1 koha/z3950/search.pl:1.3.2.2
--- koha/z3950/search.pl:1.3.2.1	Fri Mar 18 10:02:21 2005
+++ koha/z3950/search.pl	Wed Feb  1 09:24:04 2006
@@ -49,11 +49,12 @@
 my $toggle;
 
 my $record;
-my $oldbiblio;
+my $biblionumber;
 if ($bibid > 0) {
 	$record = MARCgetbiblio($dbh,$bibid);
-	$oldbiblio = MARCmarc2koha($dbh,$record);
+	$biblionumber=MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid);
 }
+
 my $errmsg;
 unless ($random) { # if random is a parameter => we're just waiting for the search to end, it's a refresh.
 	if ($isbn) {
@@ -102,7 +103,7 @@
 						breeding_loop => \@breeding_loop,
 						refresh => ($numberpending eq 0 ? 0 : "search.pl?bibid=$bibid&random=$random"),
 						numberpending => $numberpending,
-						oldbiblionumber => $oldbiblio->{'biblionumber'},
+						oldbiblionumber => $biblionumber,
 						);
 
 print $input->header(