X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/c1b698e4181002eeecdb5988ea767cae67a83a49..ab5811fa5d984d4a8bf46998d9d772a067114d51:/IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 85710c5ff..9e71cc153 100644
--- 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>"
 	}