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://git.indexdata.com/?p=ZOOM-Perl-moved-to-github.git;a=commitdiff_plain;h=54294c6cd0124a8ea28e9e3e66ca4fa7f8f90302

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