X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=6e7145f20fb5d773897029abe9508fb422b3adbf;hb=5536f72295081df4c6b227855cfa22745fcc6039;hp=bd16b4c307f1681af5fc06f60df239ceb400ea5a;hpb=d639b4fce190514f773d255af4f89514a95515b2;p=kivitendo-erp.git diff --git a/SL/Form.pm b/SL/Form.pm index bd16b4c30..6e7145f20 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -385,7 +385,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; + $str =~ s/([^a-zA-Z0-9_.:-])/sprintf("%%%02x", ord($1))/ge; $main::lxdebug->leave_sub(2); @@ -401,6 +401,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);