From 5ab8e5d57815f85471145c45547d8aa0b9d62ef8 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Wed, 19 Jul 2017 16:22:56 +0200
Subject: [PATCH] SEPA-Export ISO20022 konforme Feldinhalte
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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).
---
 SL/SEPA/XML.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm
index 3aa88b7b0..e4bf360d6 100644
--- 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;
 }
 
-- 
2.20.1