[Koha-cvs] koha/cataloguing addbiblio.pl

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Joshua Ferraro <address@hidden> 06/04/03 00:17:15

Modified files:
        cataloguing    : addbiblio.pl 

Log message:
        re-adding oldbiblionumber for the sake of the plugin

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/cataloguing/addbiblio.pl.diff?tr1=1.13&tr2=1.14&r1=text&r2=text

Patches:
Index: koha/cataloguing/addbiblio.pl
diff -u koha/cataloguing/addbiblio.pl:1.13 koha/cataloguing/addbiblio.pl:1.14
--- koha/cataloguing/addbiblio.pl:1.13  Sun Apr  2 19:12:01 2006
+++ koha/cataloguing/addbiblio.pl       Mon Apr  3 00:17:13 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.13 2006/04/02 19:12:01 kados Exp $
+# $Id: addbiblio.pl,v 1.14 2006/04/03 00:17:13 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -25,6 +25,7 @@
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Biblio;
+use C4::Search;
 use C4::SearchMarc; # also includes Biblio.pm, SearchMarc is used to 
FindDuplicate
 use C4::Context;
 use C4::Log;
@@ -367,6 +368,7 @@
 my $biblionumber=$input->param('biblionumber'); # if biblionumber exists, it's 
a modif, not a new biblio.
 if (!$biblionumber){
     $biblionumber=$input->param('oldbiblionumber');
+       warn "OLDBIBLIONUMBER".$biblionumber;
     }
 my $breedingid = $input->param('breedingid');
 my $z3950 = $input->param('z3950');
@@ -411,7 +413,9 @@
 $tagslib = &MARCgettagslib($dbh,1,$frameworkcode);
 my $record=-1;
 my $encoding="";
-$record = MARCgetbiblio($dbh,$biblionumber) if ($biblionumber);
+#$record = MARCgetbiblio($dbh,$biblionumber) if ($biblionumber);
+$record=get_record($biblionumber) if ($biblionumber);
+
 ($record,$encoding) = MARCfindbreeding($dbh,$breedingid) if ($breedingid);
 
 $is_a_modif=0;
@@ -438,7 +442,7 @@
        my @ind_tag = $input->param('ind_tag');
        my @indicator = $input->param('indicator');
        my $xml = 
MARChtml2xml(address@hidden,address@hidden,address@hidden,address@hidden,address@hidden);
-        my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
+    my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
        # check for a duplicate
        my ($duplicatebiblionumber,$duplicatebibid,$duplicatetitle) = 
FindDuplicate($record) if ($op eq "addbiblio") && (!$is_a_modif);
        my $confirm_not_duplicate = $input->param('confirm_not_duplicate');
@@ -446,7 +450,7 @@
        if (!$duplicatebiblionumber or $confirm_not_duplicate) {
                # MARC::Record built => now, record in DB
                if ($is_a_modif) {
-               warn "ITS A MODIF : .$biblionumber";
+               warn "CONFIRM ITS A MODIF : .$biblionumber";
                        
NEWmodbiblioframework($dbh,$biblionumber,$frameworkcode);
                        NEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode);
                } else {
@@ -462,6 +466,7 @@
                build_tabs ($template, $record, $dbh,$encoding);
                build_hidden_data;
                $template->param(
+                       oldbiblionumber          => $biblionumber,
                        biblionumber             => $biblionumber,
                        biblionumtagfield        => $biblionumtagfield,
                        biblionumtagsubfield     => $biblionumtagsubfield,
@@ -490,6 +495,7 @@
        build_tabs ($template, $record, $dbh,$encoding);
        build_hidden_data;
        $template->param(
+               oldbiblionumber          => $biblionumber,
                biblionumber             => $biblionumber,
                biblionumtagfield        => $biblionumtagfield,
                biblionumtagsubfield     => $biblionumtagsubfield,
@@ -522,6 +528,7 @@
        build_tabs ($template, $record, $dbh,$encoding);
        build_hidden_data;
        $template->param(
+           oldbiblionumber                      => $biblionumber,
                biblionumber             => $biblionumber,
                biblionumtagfield        => $biblionumtagfield,
                biblionumtagsubfield     => $biblionumtagsubfield,