X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fdelete.mc;fp=web%2Fhtdocs%2Fdetails%2Fdelete.mc;h=5a75bbfd57f8637ad87a2c0bb9c49963d3593ff2;hp=0000000000000000000000000000000000000000;hb=99a9460d759472acd9a54326c5d584a7a4bd4c06;hpb=030a789ac8395f6796a35ca836994613bd536727

diff --git a/web/htdocs/details/delete.mc b/web/htdocs/details/delete.mc
new file mode 100644
index 0000000..5a75bbf
--- /dev/null
+++ b/web/htdocs/details/delete.mc
@@ -0,0 +1,36 @@
+%# $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&amp;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>
+% }