diff --git a/wiki.pl b/wiki.pl index 9074a1e9..738376ed 100755 --- a/wiki.pl +++ b/wiki.pl @@ -2265,6 +2265,7 @@ sub CookieData { foreach my $key (keys %CookieParameters) { my $default = $CookieParameters{$key}; my $value = GetParam($key, $default); + utf8::encode($value); $params{$key} = $value if $value ne $default; # The cookie is considered to have changed under the following # condition: If the value was already set, and the new value is @@ -2281,7 +2282,6 @@ sub Cookie { my ($changed, $visible, %params) = CookieData(); # params are URL encoded if ($changed) { my $cookie = join(UrlEncode($FS), %params); # no CTL in field values - utf8::encode($cookie); my $result = $q->cookie(-name=>$CookieName, -value=>$cookie, -expires=>'+2y'); $Message .= $q->p(T('Cookie: ') . $CookieName . ', '