[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 <address@hidden>   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 => address@hidden,
                                                refresh => ($numberpending eq 0 
? 0 : "search.pl?bibid=$bibid&random=$random"),
                                                numberpending => $numberpending,
-                                               oldbiblionumber => 
$oldbiblio->{'biblionumber'},
+                                               oldbiblionumber => 
$biblionumber,
                                                );
 
 print $input->header(