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>