Use uri_escape_utf8()

diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc
index 11c973a..4421d3e 100644 (file)
--- a/web/htdocs/chrome/layout.mc
+++ b/web/htdocs/chrome/layout.mc
@@ -1,11 +1,11 @@
-%# $Id: layout.mc,v 1.26 2007-03-29 17:14:30 mike Exp $
+%# $Id: layout.mc,v 1.27 2007-04-16 12:26:11 mike Exp $

 <%args>
 $debug => undef
 $title
 $component
 </%args>
 <%once>
 <%args>
 $debug => undef
 $title
 $component
 </%args>
 <%once>

-use URI::Escape;
+use URI::Escape qw(uri_escape_utf8);

 use ZOOM;
 use ZOOM::IRSpy::Web;
 use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_target cql_quote
 use ZOOM;
 use ZOOM::IRSpy::Web;
 use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_target cql_quote

diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc
index 7f74932..8819d45 100644 (file)
--- a/web/htdocs/details/full.mc
+++ b/web/htdocs/details/full.mc
@@ -1,4 +1,4 @@
-%# $Id: full.mc,v 1.23 2007-04-16 10:37:05 mike Exp $
+%# $Id: full.mc,v 1.24 2007-04-16 12:23:46 mike Exp $

 <%args>
 $id
 </%args>
 <%args>
 $id
 </%args>

@@ -79,8 +79,8 @@ if ($n == 0) {
      <p>
       <a href="<% xml_encode("http://targettest.indexdata.com/targettest/search/index.zap?" .
        join("&",
      <p>
       <a href="<% xml_encode("http://targettest.indexdata.com/targettest/search/index.zap?" .
        join("&",

-            "target=" . uri_escape($id),
-            "name=" . uri_escape($title),
+            "target=" . uri_escape_utf8($id),
+            "name=" . uri_escape_utf8($title),

             "attr=" . join(" ", list_ap($xc, "bib-1")),
             "formats=" . calc_recsyn($xc, " ")))
        %>">Search this target.</a>
             "attr=" . join(" ", list_ap($xc, "bib-1")),
             "formats=" . calc_recsyn($xc, " ")))
        %>">Search this target.</a>