X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9bf9acdff05a8047d0561c68cdd93b0a03deb568..57f150274e0dc0f89968bc59a8a7a997ae7c4a08:/SL/SEPA/XML.pm diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm index 8ccfa8374..e4bf360d6 100644 --- a/SL/SEPA/XML.pm +++ b/SL/SEPA/XML.pm @@ -67,10 +67,15 @@ sub _replace_special_chars { 'Ü' => 'Ue', 'ß' => 'ss', '&' => '+', + '`' => '\'', ); map { $text =~ s/$_/$special_chars{$_}/g; } keys %special_chars; + # for all other non ascii chars 'OLÉ S.L.' and 'Årdberg AB'! + use Text::Unidecode qw(unidecode); + $text = unidecode($text); + return $text; }