web/htdocs/details/delete.mc

   1 %# $Id: delete.mc,v 1.7 2007-06-27 11:09:32 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="/full.html?id=<% xml_encode(uri_escape($id)) %>">No</a><br/>
  15      </p>
  16 % } else {
  17 <%perl>
  18     my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
  19                                     user => "admin", password => "fruitbat",
  20                                     elementSetName => "zeerex");
  21     ZOOM::IRSpy::_delete_record($conn, $id);
  22 </%perl>
  23      <p>
  24       Deleted record
  25       <% xml_encode($id) %>
  26      </p>
  27 % }