Refactor -- move most code out into form.mc
[irspy-moved-to-github.git] / web / htdocs / details / edit.mc
1 %# $Id: edit.mc,v 1.10 2006-11-14 14:54:41 mike Exp $
2 <%args>
3 $id => undef
4 </%args>
5 <%once>
6 use ZOOM;
7 </%once>
8 <%perl>
9 my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
10                                 user => "admin", password => "fruitbat");
11 if (!defined $id || $id eq "") {
12     $m->comp("/details/form.mc", id => undef, conn => $conn,
13              rec => '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>');
14 } else {
15     $conn->option(elementSetName => "zeerex");
16     my $qid = $id;
17     $qid =~ s/"/\\"/g;
18     my $query = qq[rec.id="$qid"];
19     my $rs = $conn->search(new ZOOM::Query::CQL($query));
20     my $n = $rs->size();
21     if ($n == 0) {
22         $m->comp("/details/error.mc",
23                  title => "Error", message => "No such ID '$id'");
24     } else {
25         my $rec = $rs->record(0);
26         $m->comp("/details/form.mc", id => $id, conn => $conn, rec => $rec);
27     }
28 }
29 </%perl>