Use cql_target()

[irspy-moved-to-github.git] / web / htdocs / details / full.mc

diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc
index 19f74a2..d5b1799 100644 (file)
--- a/web/htdocs/details/full.mc
+++ b/web/htdocs/details/full.mc
@@ -1,13 +1,11 @@
-%# $Id: full.mc,v 1.26 2007-04-26 14:00:33 mike Exp $
+%# $Id: full.mc,v 1.28 2007-05-11 13:32:57 mike Exp $
 <%args>
 $id
 </%args>
 <%perl>
 my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1");
 $conn->option(elementSetName => "zeerex");
-my $qid = $id;
-$qid =~ s/"/\\"/g;
-my $query = qq[rec.id="$qid"];
+my $query = cql_target($id);
 my $rs = $conn->search(new ZOOM::Query::CQL($query));
 my $n = $rs->size();
 if ($n == 0) {
@@ -81,7 +79,7 @@ if ($n == 0) {
      <p>
       <a href="<% xml_encode("http://targettest.indexdata.com/targettest/search/index.zap?" .
        join("&",
-            "target=" . uri_escape_utf8($id),
+            "target=" . uri_escape_utf8(irspy_identifier2target($id)),
             "name=" . uri_escape_utf8($title),
             "attr=" . join(" ", list_ap($xc, "bib-1")),
             "formats=" . calc_recsyn($xc, " ")))