--- /dev/null
+%# $Id: delete.html,v 1.1 2007-01-02 17:26:53 mike Exp $
+<%args>
+$id => undef
+</%args>
+<& /chrome/layout.mc, %ARGS,
+ title => "Delete target record",
+ component => "/details/delete.mc" &>
--- /dev/null
+%# $Id: delete.mc,v 1.1 2007-01-02 17:27:08 mike Exp $
+<%args>
+$id
+$really => 0
+</%args>
+% if (!$really) {
+ <h2>Warning</h2>
+ <p class="error">
+ Are you sure you want to delete the target
+ <% xml_encode($id) %>?
+ </p>
+ <p>
+ <a href="?really=1&id=<% xml_encode(uri_escape($id)) %>">Yes</a><br/>
+ <a href="/">No</a><br/>
+ </p>
+% } else {
+<%perl>
+ my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+ user => "admin", password => "fruitbat",
+ elementSetName => "zeerex");
+ # I am thinking that ZOOM should provide delete(), update(), etc.
+ my $p = $conn->package();
+ $p->option(action => "recordDelete");
+ $p->option(recordIdOpaque => $id);
+ $p->send("update");
+ $p->destroy();
+
+ $p = $conn->package();
+ $p->send("commit");
+ $p->destroy();
+</%perl>
+ <p>
+ Deleted record
+ <% xml_encode($id) %>
+ </p>
+% }