[Koha-cvs] CVS: koha/C4 Biblio.pm,1.61,1.62

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv23199/C4

Modified Files:
        Biblio.pm 
Log Message:
fixing bug that makes a MARC biblio disappear when using full acquisition 
(order => recieve ==> MARC editor).
Before this 2 lines fix, the MARC biblio was deleted during recieve, and had to 
be entirely recreated :-(

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -r1.61 -r1.62
*** Biblio.pm   17 Sep 2003 10:24:39 -0000      1.61
--- Biblio.pm   17 Sep 2003 14:21:13 -0000      1.62
***************
*** 2,5 ****
--- 2,9 ----
  # $Id$
  # $Log$
+ # Revision 1.62  2003/09/17 14:21:13  tipaul
+ # fixing bug that makes a MARC biblio disappear when using full acquisition 
(order => recieve ==> MARC editor).
+ # Before this 2 lines fix, the MARC biblio was deleted during recieve, and 
had to be entirely recreated :-(
+ #
  # Revision 1.61  2003/09/17 10:24:39  tipaul
  # notforloan value in itemtype was overwritting notforloan value in a given 
item.
***************
*** 789,794 ****
  # 1st delete the biblio,
  # 2nd recreate it
-       &MARCdelbiblio($dbh,$bibid,1);
        my $biblionumber = MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid);
        &MARCaddbiblio($dbh,$record,$biblionumber,$bibid);
  }
--- 793,798 ----
  # 1st delete the biblio,
  # 2nd recreate it
        my $biblionumber = MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid);
+       &MARCdelbiblio($dbh,$bibid,1);
        &MARCaddbiblio($dbh,$record,$biblionumber,$bibid);
  }
***************
*** 1733,1737 ****
    }
    my $sth=$dbh->prepare($query);
-   warn "$query";
    $sth->execute;
    $sth->finish;
--- 1737,1740 ----
***************
*** 1947,1951 ****
        my $dbh  = C4::Context->dbh;
        my $biblionumber=OLDmodbiblio($dbh,$biblio);
!       my $record = MARCkoha2marcBiblio($dbh,$biblionumber);
        # finds new (MARC bibid
        my $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
--- 1950,1954 ----
        my $dbh  = C4::Context->dbh;
        my $biblionumber=OLDmodbiblio($dbh,$biblio);
!       my $record = MARCkoha2marcBiblio($dbh,$biblionumber,$biblionumber);
        # finds new (MARC bibid
        my $bibid = 
&MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
***************
*** 2009,2014 ****
      my $dbh   = C4::Context->dbh;
      &OLDmodbibitem($dbh,$biblioitem);
-     my $MARCbibitem = MARCkoha2marcBiblio($dbh,$biblioitem);
-     &MARCmodbiblio($dbh,$biblioitem->{biblionumber},$MARCbibitem,0);
  } # sub modbibitem
  
--- 2012,2015 ----