X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=f02c25abe26ff9d8fdb42c4dcfb7d314df90ae04;hb=d8a50ddefe779afb7c1f4f6299439b0757d4540b;hp=fad6e8ea68504755175478f06cb7c457832ba5d3;hpb=97c8f14b3fea88e6b482919d944cb8e6461bc451;p=kivitendo-erp.git
diff --git a/SL/Form.pm b/SL/Form.pm
index fad6e8ea6..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;
@@ -56,7 +57,7 @@ use SL::User;
use Template;
use URI;
use List::Util qw(first max min sum);
-use List::MoreUtils qw(any);
+use List::MoreUtils qw(any apply);
use strict;
@@ -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);
@@ -727,7 +729,6 @@ sub header {
-