Enable actual deletion, and commit at end of loop.

[ZOOM-Perl-moved-to-github.git] / samples / zoom / zoom-delete-records

diff --git a/samples/zoom/zoom-delete-records b/samples/zoom/zoom-delete-records
index fb5f417..dbb584b 100755 (executable)
--- 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