koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 Biblio.pm


From: Chris Cormack
Subject: [Koha-cvs] koha/C4 Biblio.pm
Date: Wed, 29 Mar 2006 01:56:25 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/03/29 01:56:25

Modified files:
        C4             : Biblio.pm 

Log message:
        Delete isnt working using the extended services method

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

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.163 koha/C4/Biblio.pm:1.164
--- koha/C4/Biblio.pm:1.163     Tue Mar 28 23:05:08 2006
+++ koha/C4/Biblio.pm   Wed Mar 29 01:56:25 2006
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.163 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.164 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -999,13 +999,13 @@
     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');
 }
 
@@ -3002,8 +3002,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.163 2006/03/28 23:05:08 rangi Exp $
+# $Id: Biblio.pm,v 1.164 2006/03/29 01:56:25 rangi Exp $
 # $Log: Biblio.pm,v $
+# 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
 #




reply via email to

[Prev in Thread] Current Thread [Next in Thread]