[Koha-cvs] koha/C4 Biblio.pm

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	06/03/07 21:54:47

Modified files:
	C4             : Biblio.pm 

Log message:
	Starting work on deletes

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.158&tr2=1.159&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.158 koha/C4/Biblio.pm:1.159
--- koha/C4/Biblio.pm:1.158	Mon Mar  6 02:45:41 2006
+++ koha/C4/Biblio.pm	Tue Mar  7 21:54:47 2006
@@ -22,6 +22,7 @@
 use C4::Context;
 use C4::Database;
 use C4::Date;
+use C4::Search;
 use MARC::Record;
 use MARC::File::USMARC;
 use MARC::File::XML;
@@ -29,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.158 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.159 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -1032,16 +1033,19 @@
 
 sub NEWdelbiblio {
     my ( $dbh, $bibid ) = @_;
-    my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
-    &REALdelbiblio( $dbh, $biblio );
+#    my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
+    &REALdelbiblio( $dbh, $bibid );
     my $sth =
       $dbh->prepare(
         "select biblioitemnumber from biblioitems where biblionumber=?");
-    $sth->execute($biblio);
+    $sth->execute($bibid);
     while ( my ($biblioitemnumber) = $sth->fetchrow ) {
         REALdelbiblioitem( $dbh, $biblioitemnumber );
     }
-    &MARCdelbiblio( $dbh, $bibid, 0 );
+#    &MARCdelbiblio( $dbh, $bibid, 0 );
+    # delete from zebra
+    my $record = get_record($bibid);
+#    z3950_extended_services('update',set_service_options('update'),$record);
 }
 
 =head2 NEWnewitem
@@ -1112,9 +1116,9 @@
 
 sub NEWdelitem {
     my ( $dbh, $bibid, $itemnumber ) = @_;
-    my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
     &REALdelitem( $dbh, $itemnumber );
-    &MARCdelitem( $dbh, $bibid, $itemnumber );
+#    &MARCdelitem( $dbh, $bibid, $itemnumber );
+    # we must now delete the item data from zebra
 }
 
 
@@ -3033,8 +3037,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.158 2006/03/06 02:45:41 kados Exp $
+# $Id: Biblio.pm,v 1.159 2006/03/07 21:54:47 rangi Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.159  2006/03/07 21:54:47  rangi
+# Starting work on deletes
+#
 # Revision 1.158  2006/03/06 02:45:41  kados
 # Adding fixes to MARC editor to HEAD
 #