0.03 - use uri_escape_utf8 which converts (wrongly) ISO-8859-1 to UTF-8

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@201 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/TT.pm b/lib/WebPAC/Output/TT.pm
index fa97769..ccb558c 100644 (file)
--- a/lib/WebPAC/Output/TT.pm
+++ b/lib/WebPAC/Output/TT.pm
@@ -8,7 +8,7 @@ use base qw/WebPAC::Common/;
 use Template;
 use List::Util qw/first/;
 use Data::Dumper;
-use URI::Escape;
+use URI::Escape qw/uri_escape_utf8/;
 
 =head1 NAME
 
@@ -16,11 +16,11 @@ WebPAC::Output::TT - use Template Toolkit to produce output
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 SYNOPSIS
 
@@ -196,7 +196,8 @@ filter to return links to search, usage in TT:
                                        } else {
                                                $s = $item->{'search'}->[0];
                                        }
-                                       $s = uri_escape( $s );
+                                       #$s =~ s/([^\w.-])/sprintf("%%%02X",ord($1))/eg;
+                                       $s = uri_escape_utf8( $s );
 
                                        my $d = $item->{'display'}->[$i] || die "can't find value $i for type display in field $display";