From dc49906f445d45746d345921dfc78abf85299f64 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 1 Feb 2006 09:24:04 +0000
Subject: [PATCH] fixing a bug when z3950'ing an existing biblio

---
 z3950/search.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/z3950/search.pl b/z3950/search.pl
index d7fa6b0ffe..00f6c5b2b7 100755
--- a/z3950/search.pl
+++ b/z3950/search.pl
@@ -49,11 +49,12 @@ my $count;
 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 @@ $template->param(isbn => $isbn,
 						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(
-- 
2.39.5