X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FSEPA%2FXML%2FTransaction.pm;h=83a749e375d3a0a538c759abc8b5aa72fc61ce29;hb=5474d397bbc42ffaea0b51ebb4bb9a4c7afaa881;hp=be444af8bfa2cb6312316e548ae2d031ae5209bb;hpb=cc042e07ef78786b758b22cee75509815e59ba5b;p=kivitendo-erp.git diff --git a/SL/SEPA/XML/Transaction.pm b/SL/SEPA/XML/Transaction.pm index be444af8b..83a749e37 100644 --- a/SL/SEPA/XML/Transaction.pm +++ b/SL/SEPA/XML/Transaction.pm @@ -25,7 +25,7 @@ sub _init { $self->{sepa} = $params{sepa}; delete $params{sepa}; - my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban dst_bic recipient reference amount end_to_end_id); + my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban dst_bic company reference amount end_to_end_id); croak "Missing parameter: $missing_parameter" if ($missing_parameter); $params{end_to_end_id} ||= 'NOTPROVIDED'; @@ -35,7 +35,7 @@ sub _init { map { $self->{$_} = $self->{sepa}->{iconv}->convert($params{$_}) } keys %params; map { $self->{$_} =~ s/\s+//g } qw(src_iban src_bic dst_iban dst_bic); - map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_}) } qw(recipient reference end_to_end_id); + map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_}) } qw(company reference end_to_end_id); } sub get {