From 1e70782e7950a3c452ef4c88699bbe43b895061d Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 29 Mar 2006 01:56:25 +0000
Subject: [PATCH] Delete isnt working using the extended services method

---
 C4/Biblio.pm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 6a6d96cbc7..cda2fd1341 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -999,13 +999,13 @@ sub NEWdelbiblio {
     my $record = C4::Search::get_xml_record($bibid);
 #    z3950_extended_services('update',set_service_options('update'),$record);
     warn "heres the record to delete $bibid";
-#    my $Zconn = C4::Context->Zconn;
-#    my $p = $Zconn->package();
-#    $p->option(action => "recordDelete");
-#    $p->option(record => $record);
-#    $p->send("update");
-#    $p->destroy();
-    z3950_extended_services('update',set_service_options('update','recordDelete',$record));
+    my $Zconn = C4::Context->Zconn;
+    my $p = $Zconn->package();
+    $p->option(action => "recordDelete");
+    $p->option(record => $record);
+    $p->send("update");
+    $p->destroy();
+#    z3950_extended_services('update',set_service_options('update','recordDelete',$record));
     z3950_extended_services('commit');
 }
 
@@ -3004,6 +3004,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.164  2006/03/29 01:56:25  rangi
+# Delete isnt working using the extended services method
+#
 # Revision 1.163  2006/03/28 23:05:08  rangi
 # Delete working now
 #
-- 
2.39.5