From 753b82ffa2294d6aba8fa64e9179c4323c4ad35d Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 13 Dec 2010 17:08:35 +0100
Subject: [PATCH] =?utf8?q?Beim=20URL-Escapen=20vom=20internen=20Encoding?=
 =?utf8?q?=20nach=20UTF-8=20wandeln,=20sofern=20ben=C3=B6tigt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SL/Form.pm b/SL/Form.pm
index f3fe6e5d9..f02c25abe 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -42,6 +42,7 @@ use Data::Dumper;
 use CGI;
 use CGI::Ajax;
 use Cwd;
+use Encode;
 use IO::File;
 use SL::Auth;
 use SL::Auth::DB;
@@ -379,6 +380,7 @@ sub escape {
 
   my ($self, $str) = @_;
 
+  $str =  Encode::encode('utf-8-strict', $str) if $::locale->is_utf8;
   $str =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02x", ord($1))/ge;
 
   $main::lxdebug->leave_sub(2);
-- 
2.20.1