[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 ----