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

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   07/01/16 15:00:04

Modified files:
        C4             : Biblio.pm 

Log message:
        donc try to delete the biblio in koha, just fill zebraqueue table !

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.53&r2=1.178.2.54

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.53
retrieving revision 1.178.2.54
diff -u -b -r1.178.2.53 -r1.178.2.54
--- Biblio.pm   16 Jan 2007 10:24:11 -0000      1.178.2.53
+++ Biblio.pm   16 Jan 2007 15:00:03 -0000      1.178.2.54
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.178.2.53 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.178.2.54 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -491,30 +491,13 @@
     }
     return $error if $error;
 
-    # Delete from Zebra
-    # get the xml of the record from Zebra
-    my $xmlrecord = getRecord( "biblioserver", "Local-number=$biblionumber" );
-    my $serviceOptions;
-    $serviceOptions->{'databaseName'} = "biblios";  # FIXME :: hardcoded value
-    $serviceOptions->{'record'}       = $xmlrecord;
-    $error                            =
-      &z3950_extended_services( "biblioserver", "update", "recordDelete",
-        $serviceOptions );
-    return $error if $error;
-
-    # run commit operation
-    #if ( (C4::Context->preference("commitImmediately")) ) {
-    $error = &z3950_extended_services( "biblioserver", "commit" );
-
-    #}
+    # Delete in Zebra
     zebraop($dbh,$biblionumber,"delete_record","biblioserver");
-    return $error if $error;
 
     # delete biblio from Koha tables and save in deletedbiblio
     $error = &_koha_delete_biblio( $dbh, $biblionumber );
-    return $error if $error;
 
-# delete biblioitems and items from Koha tables and save in 
deletedbiblioitems,deleteditems
+    # delete biblioitems and items from Koha tables and save in 
deletedbiblioitems,deleteditems
     $sth =
       $dbh->prepare(
         "SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=?");
@@ -535,11 +518,9 @@
             return $error if $error;
         }
     }
-    
     
&logaction(C4::Context->userenv->{'number'},"CATALOGUING","DELETE",$biblionumber,"")
 
         if C4::Context->preference("CataloguingLog");
-        
-    return undef;
+    return;
 }
 
 =head2 DelItem
@@ -3678,8 +3659,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.53 2007/01/16 10:24:11 tipaul Exp $
+# $Id: Biblio.pm,v 1.178.2.54 2007/01/16 15:00:03 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.54  2007/01/16 15:00:03  tipaul
+# donc try to delete the biblio in koha, just fill zebraqueue table !
+#
 # Revision 1.178.2.53  2007/01/16 10:24:11  tipaul
 # BUGFIXING :
 # when modifying or deleting an item, the biblio frameworkcode was emptied.