From: Mike Taylor <mike@miketaylor.org.uk>
Date: Fri, 17 Dec 2010 15:53:51 +0000 (+0000)
Subject: Enable actual deletion, and commit at end of loop.
X-Git-Tag: v1.29~34
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=54294c6cd0124a8ea28e9e3e66ca4fa7f8f90302;p=ZOOM-Perl-moved-to-github.git

Enable actual deletion, and commit at end of loop.

THIS DOES NOT WORK but it seems to be sending the right APDUs.  The
evidence seems to be that Zebra is simply no-opping them.
---

diff --git a/samples/zoom/zoom-delete-records b/samples/zoom/zoom-delete-records
index fb5f417..dbb584b 100755
--- a/samples/zoom/zoom-delete-records
+++ b/samples/zoom/zoom-delete-records
@@ -28,15 +28,19 @@ foreach my $i (1 .. $n) {
     if ($val eq "true") {
 	my $id = ZOOM_record_id($rs, $i);
 	print " DELETE $id";
-	#my $p = $conn->package();
-	#$p->option(action => "deleteRecord");
-	#$p->option(recordIdOpaque => $id);
-	#$p->send("update");
-	#$p->destroy();
+	my $p = $conn->package();
+	$p->option(action => "deleteRecord");
+	$p->option(recordIdOpaque => $id);
+	$p->send("update");
+	$p->destroy();
     }
     print "\n";
 }
 
+my $p = $conn->package();
+$p->send("commit");
+$p->destroy();
+
 sub ZOOM_record_id {
     my($rs, $i) = @_;
     # There is no standard way in Z39.50 to discover the opaque record