web/htdocs/raw.html

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