'Ü' => '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;
}
$xml->startTag('DrctDbtTx');
$xml->startTag('MndtRltdInf');
- $xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('reference')));
- $xml->dataElement('DtOfSgntr', $transaction->get('reference_date', 2010-12-02));
+ $xml->dataElement('MndtId', $self->_restricted_identification_sepa2($transaction->get('mandator_id')));
+ $xml->dataElement('DtOfSgntr', $self->_restricted_identification_sepa2($transaction->get('date_of_signature')));
$xml->endTag('MndtRltdInf');
$xml->startTag('CdtrSchmeId');