web/htdocs/details/delete.mc

   1 %# $Id: delete.mc,v 1.1 2007-01-02 17:27:08 mike Exp $
   2 <%args>
   3 $id
   4 $really => 0
   5 </%args>
   6 % if (!$really) {
   7      <h2>Warning</h2>
   8      <p class="error">
   9       Are you sure you want to delete the target
  10       <% xml_encode($id) %>?
  11      </p>
  12      <p>
  13       <a href="?really=1&amp;id=<% xml_encode(uri_escape($id)) %>">Yes</a><br/>
  14       <a href="/">No</a><br/>
  15      </p>
  16 % } else {
  17 <%perl>
  18     my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
  19                                     user => "admin", password => "fruitbat",
  20                                     elementSetName => "zeerex");
  21     # I am thinking that ZOOM should provide delete(), update(), etc.
  22     my $p = $conn->package();
  23     $p->option(action => "recordDelete");
  24     $p->option(recordIdOpaque => $id);
  25     $p->send("update");
  26     $p->destroy();
  27
  28     $p = $conn->package();
  29     $p->send("commit");
  30     $p->destroy();
  31 </%perl>
  32      <p>
  33       Deleted record
  34       <% xml_encode($id) %>
  35      </p>
  36 % }