need to use uri_escape_utf8

master
joey 2007-03-08 06:25:20 +00:00
parent c1b698e418
commit 1465676082
2 changed files with 3 additions and 3 deletions

View File

@ -5,7 +5,7 @@ use warnings;
use strict;
use Encode;
use HTML::Entities;
use URI::Escape;
use URI::Escape q{uri_escape_utf8};
use open qw{:utf8 :std};
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime %pagecase
@ -387,7 +387,7 @@ sub cgiurl (@) { #{{{
my %params=@_;
return $config{cgiurl}."?".
join("&", map $_."=".uri_escape($params{$_}), keys %params);
join("&", map $_."=".uri_escape_utf8($params{$_}), keys %params);
} #}}}
sub baseurl (;$) { #{{{

View File

@ -8,7 +8,7 @@ msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2007-03-08 00:56-0500\n"
"POT-Creation-Date: 2007-03-08 01:08-0500\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"