XS-update operation is recordDelete, not deleteRecord.

[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 dbb584b..5c65d29 100755 (executable)
--- a/samples/zoom/zoom-delete-records
+++ b/samples/zoom/zoom-delete-records
@@ -29,8 +29,8 @@ foreach my $i (1 .. $n) {
        my $id = ZOOM_record_id($rs, $i);
        print " DELETE $id";
        my $p = $conn->package();
-       $p->option(action => "deleteRecord");
-       $p->option(recordIdOpaque => $id);
+       $p->option(action => "recordDelete");
+       $p->option(record => $xml);
        $p->send("update");
        $p->destroy();
     }