%# $Id: delete.mc,v 1.5 2007-02-20 19:21:26 mike Exp $ <%args> $id $really => 0 %args> % if (!$really) {
Are you sure you want to delete the target <% xml_encode($id) %>?
% } else { <%perl> my $conn = new ZOOM::Connection("localhost:8018/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->option(record => "Deleted record <% xml_encode($id) %>
% }