X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=6b1ee5009f2aeb16548934aa4319f63ded479a37;hb=fededc52e1b1c530a7e0f1e11c0268862d0c3581;hp=f0ad1a17b0292c6e5e4e105447df014fb19376bf;hpb=70bf75174885ce60e8236dbc3637807b130fd5e5;p=kivitendo-erp.git

diff --git a/SL/Form.pm b/SL/Form.pm
index f0ad1a17b..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);
 
@@ -679,7 +680,6 @@ EOT
   print <<EOT;
   <link rel="stylesheet" href="css/jquery.autocomplete.css" type="text/css" />
   <meta name="robots" content="noindex,nofollow" />
-  <script type="text/javascript" src="js/highlight_input.js"></script>
   <link rel="stylesheet" type="text/css" href="css/tabcontent.css" />
   <script type="text/javascript" src="js/tabcontent.js">
 
@@ -1324,6 +1324,7 @@ sub parse_template {
       my $numbytes = (-s $self->{tmpfile});
       open(IN, $self->{tmpfile})
         or $self->error($self->cleanup . "$self->{tmpfile} : $!");
+      binmode IN;
 
       $self->{copies} = 1 unless $self->{media} eq 'printer';