[Koha-cvs] koha/C4 Biblio.pm [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	paul poulain <tipaul>	06/11/22 16:02:52

Modified files:
	C4             : Biblio.pm 

Log message:
	fix for #1177 = removal of additionnal authors & bibliosubjects

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.115.2.63&r2=1.115.2.64

Patches:
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.63
retrieving revision 1.115.2.64
diff -u -b -r1.115.2.63 -r1.115.2.64
--- Biblio.pm	22 Nov 2006 13:58:11 -0000	1.115.2.63
+++ Biblio.pm	22 Nov 2006 16:02:52 -0000	1.115.2.64
@@ -26,7 +26,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.115.2.63 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.115.2.64 $' =~ /\d+/g;
                     shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -1492,6 +1492,11 @@
     while ( my ($biblioitemnumber) = $sth->fetchrow ) {
         OLDdeletebiblioitem( $dbh, $biblioitemnumber );
     }
+    # delete from other koha tables
+    $sth = $dbh->prepare("DELETE FROM bibliosubject WHERE biblionumber=?");
+    $sth->execute($biblio);
+    $sth = $dbh->prepare("DELETE FROM additionalauthors WHERE biblionumber=?");
+    $sth->execute($biblio);
     &MARCdelbiblio( $dbh, $bibid, 0 );
 }
 
@@ -3005,8 +3010,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.63 2006/11/22 13:58:11 tipaul Exp $
+# $Id: Biblio.pm,v 1.115.2.64 2006/11/22 16:02:52 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.64  2006/11/22 16:02:52  tipaul
+# fix for #1177 = removal of additionnal authors & bibliosubjects
+#
 # Revision 1.115.2.63  2006/11/22 13:58:11  tipaul
 # there are some strange problems with mysql_fetchrow_hashref, that reorders silently the hashref returned.
 # This hack fixes them by retrieving the results in an array & rebuilding the MARC record from that.