X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FSEPA%2FXML.pm;h=a4cf5f5adaa9586190e63bd7e3e1907dfd5220f2;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=8ccfa837452d2d9627cd72d458e54372c27185a7;hpb=9bf9acdff05a8047d0561c68cdd93b0a03deb568;p=kivitendo-erp.git diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm index 8ccfa8374..a4cf5f5ad 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; } @@ -138,7 +143,7 @@ sub to_xml { my $is_coll = $self->{collection}; my $cd_src = $is_coll ? 'Cdtr' : 'Dbtr'; my $cd_dst = $is_coll ? 'Dbtr' : 'Cdtr'; - my $pain_id = $is_coll ? 'pain.008.002.02' : 'pain.001.002.03'; + my $pain_id = $is_coll ? 'pain.008.001.02' : 'pain.001.001.03'; my $pain_elmt = $is_coll ? 'CstmrDrctDbtInitn' : 'CstmrCdtTrfInitn'; my @pii_base = (strftime('PII%Y%m%d%H%M%S', @now), rand(1000000000));