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