From 54294c6cd0124a8ea28e9e3e66ca4fa7f8f90302 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 17 Dec 2010 15:53:51 +0000 Subject: [PATCH] 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. --- samples/zoom/zoom-delete-records | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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 -- 1.7.10.4