-%# $Id: delete.mc,v 1.7 2007-06-27 11:09:32 mike Exp $
<%args>
$id
$really => 0
</p>
% } else {
<%perl>
- my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
+ 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);