web/htdocs/raw.html

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