Revision 16e9dc2c
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
SL/SEPA/XML/Transaction.pm | ||
---|---|---|
2 | 2 |
|
3 | 3 |
use strict; |
4 | 4 |
|
5 |
use SL::DB::Helper::ReplaceSpecialChars qw(replace_special_chars); |
|
6 |
|
|
7 | 5 |
use Carp; |
8 | 6 |
use Encode; |
9 | 7 |
use List::Util qw(first); |
... | ... | |
37 | 35 |
|
38 | 36 |
map { $self->{$_} = $self->{sepa}->{iconv}->convert($params{$_}) } keys %params; |
39 | 37 |
map { $self->{$_} =~ s/\s+//g } qw(src_iban src_bic dst_iban dst_bic); |
40 |
map { $self->{$_} = replace_special_chars($self->{$_}) } qw(company reference end_to_end_id); |
|
38 |
map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_}) } qw(company reference end_to_end_id);
|
|
41 | 39 |
} |
42 | 40 |
|
43 | 41 |
sub get { |
Auch abrufbar als: Unified diff
Revert "_replace_special_chars in Helper ausgelagert."
Funktion in die falsche Stelle ausgelagert, ferner zu
'speziell' um die für andere Anforderungen wiederzuverwerten
This reverts commit fec48603264c8adad06fbc212358633778322b56.