From: Mike Taylor <mike@indexdata.com>
Date: Mon, 16 Apr 2007 12:23:46 +0000 (+0000)
Subject: Use uri_escape_utf8()
X-Git-Tag: CPAN-v1.02~54^2~434
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=ce1b702a3ff2d0482b2855fff826c6f4a248c097;p=irspy-moved-to-github.git

Use uri_escape_utf8()
---

diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc
index 11c973a..4421d3e 100644
--- 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>
-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
diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc
index 7f74932..8819d45 100644
--- 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>
@@ -79,8 +79,8 @@ if ($n == 0) {
      <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>