SEPA-Export ISO20022 konforme Feldinhalte

Das _replace_special_chars kümmert sich perfekt um
deutsche Umlaute, allerdings gibt es im SEPA-Raum einige
Firmenname die andere Umlaute/Sonderzeichen behalten
(s.a. perldoc Text::Unidecode).

diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm
index 3aa88b7..e4bf360 100644 (file)
--- a/SL/SEPA/XML.pm
+++ b/SL/SEPA/XML.pm
@@ -72,6 +72,10 @@ sub _replace_special_chars {
 
   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;
 }