web/htdocs/raw.html

   1 %# $Id: raw.html,v 1.7 2007-01-24 09:28:02 mike Exp $
   2 <%args>
   3 $id
   4 </%args>
   5 <%once>
   6 use ZOOM;
   7 </%once>
   8 <%perl>
   9 my $conn = new ZOOM::Connection("localhost:8018/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 $xml = $rs->record(0)->render();
  21     $r->content_type("text/xml");
  22     print $xml;
  23 }
  24 </%perl>