%# $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 $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);

Deleted record <% xml_encode($id) %>

% }