From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 2 Feb 2011 09:57:26 +0000 (+0100)
Subject: Beim URL-Unescapen von UTF-8 ins internen Encoding wandeln, sofern benötigt
X-Git-Tag: release-2.6.2~9^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=fededc52e1b1c530a7e0f1e11c0268862d0c3581;p=kivitendo-erp.git

Beim URL-Unescapen von UTF-8 ins internen Encoding wandeln, sofern benötigt

Fix für Bug 1583.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 81d6dc41b..6b1ee5009 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -394,6 +394,7 @@ sub unescape {
   $str =~ s/\\$//;
 
   $str =~ s/%([0-9a-fA-Z]{2})/pack("c",hex($1))/eg;
+  $str =  Encode::decode('utf-8-strict', $str) if $::locale->is_utf8;
 
   $main::lxdebug->leave_sub(2);