1 %# $Id: edit.mc,v 1.12 2006-11-16 11:50:03 mike Exp $
6 my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
7 user => "admin", password => "fruitbat");
8 my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
9 if (defined $id && $id ne "") {
10 $conn->option(elementSetName => "zeerex");
13 my $query = qq[rec.id="$qid"];
14 my $rs = $conn->search(new ZOOM::Query::CQL($query));
19 $rec = $rs->record(0);
23 <& /details/form.mc, id => $id, conn => $conn, rec => $rec &>