web commit from 62.213.72.100: poll vote (It's fast enough)

[git.ikiwiki.info.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 85710c5ff3f0f2e025fdae391f5402d523a36508..9e71cc153c4aaaad37328bb3eb74b947d2084ae8 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -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 (;$) { #{{{
@@ -458,7 +458,7 @@ sub htmllink ($$$;@) { #{{{
                        cgiurl(
                                do => "create",
                                page => pagetitle(lc($link), 1),
-                               from => $page
+                               from => $lpage
                        ).
                        "\">?</a>$linktext</span>"
        }