need to use uri_escape_utf8
parent
c1b698e418
commit
1465676082
|
@ -5,7 +5,7 @@ use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use Encode;
|
use Encode;
|
||||||
use HTML::Entities;
|
use HTML::Entities;
|
||||||
use URI::Escape;
|
use URI::Escape q{uri_escape_utf8};
|
||||||
use open qw{:utf8 :std};
|
use open qw{:utf8 :std};
|
||||||
|
|
||||||
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime %pagecase
|
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime %pagecase
|
||||||
|
@ -387,7 +387,7 @@ sub cgiurl (@) { #{{{
|
||||||
my %params=@_;
|
my %params=@_;
|
||||||
|
|
||||||
return $config{cgiurl}."?".
|
return $config{cgiurl}."?".
|
||||||
join("&", map $_."=".uri_escape($params{$_}), keys %params);
|
join("&", map $_."=".uri_escape_utf8($params{$_}), keys %params);
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub baseurl (;$) { #{{{
|
sub baseurl (;$) { #{{{
|
||||||
|
|
|
@ -8,7 +8,7 @@ msgid ""
|
||||||
msgstr ""
|
msgstr ""
|
||||||
"Project-Id-Version: PACKAGE VERSION\n"
|
"Project-Id-Version: PACKAGE VERSION\n"
|
||||||
"Report-Msgid-Bugs-To: \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"
|
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||||
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
||||||
"Language-Team: LANGUAGE <LL@li.org>\n"
|
"Language-Team: LANGUAGE <LL@li.org>\n"
|
||||||
|
|
Loading…
Reference in New Issue