%# $Id: delete.mc,v 1.7 2007-06-27 11:09:32 mike Exp $ <%args> $id $really => 0 %args> % if (!$really) {
Are you sure you want to delete the target <% xml_encode($id) %>?
% } else { <%perl> my $db = ZOOM::IRSpy::connect_to_registry(); my $conn = new ZOOM::Connection($db, 0, user => "admin", password => "fruitbat", elementSetName => "zeerex"); ZOOM::IRSpy::_delete_record($conn, $id); %perl>Deleted record <% xml_encode($id) %>
% }