X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=samples%2Fzoom%2Fzoom-delete-records;fp=samples%2Fzoom%2Fzoom-delete-records;h=dbb584bb11b48c45313ce8bdd9d26a99436449e3;hb=54294c6cd0124a8ea28e9e3e66ca4fa7f8f90302;hp=fb5f417677f33f836001e05ca3ee201b743f05d6;hpb=2d4fd97328f0433be4fd027eb7f55919b2665809;p=ZOOM-Perl-moved-to-github.git

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