%# $Id: delete.mc,v 1.7 2007-06-27 11:09:32 mike Exp $ <%args> $id $really => 0 % if (!$really) {

Warning

Are you sure you want to delete the target <% xml_encode($id) %>?

Yes
No

% } else { <%perl> my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0, user => "admin", password => "fruitbat", elementSetName => "zeerex"); ZOOM::IRSpy::_delete_record($conn, $id);

Deleted record <% xml_encode($id) %>

% }