web/htdocs/raw.html

   1 %# $Id: raw.html,v 1.1 2006-09-19 11:11:33 mike Exp $
   2 <%args>
   3 $id
   4 </%args>
   5 <%once>
   6 use ZOOM;
   7 </%once>
   8 <%perl>
   9 my $conn = new ZOOM::Connection("localhost:1313/IR-Explain---1");
  10 $conn->option(elementSetName => "zeerex");
  11 my $query = qq[rec.id="$id"];
  12 my $rs = $conn->search(new ZOOM::Query::CQL($query));
  13 my $n = $rs->size();
  14 if ($n == 0) {
  15     $m->comp("/chrome/layout.mc", component => "/details/error.mc",
  16              title => "Error", message => "No such ID '$id'");
  17 } else {
  18     my $rec = $rs->record(0);
  19     my $xml = $rec->render();
  20     $r->content_type("text/xml");
  21     print $xml;
  22 }
  23 </%perl>