X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FSEPA%2FXML%2FTransaction.pm;h=83a749e375d3a0a538c759abc8b5aa72fc61ce29;hb=7520cd583a92860e2a33ee0b3155fd1695cc21bf;hp=8849b41925ccb2b095f133e4b9b5688346656005;hpb=1c603341fc02e3a5a7b5126cd7df6478d2e34700;p=kivitendo-erp.git

diff --git a/SL/SEPA/XML/Transaction.pm b/SL/SEPA/XML/Transaction.pm
index 8849b4192..83a749e37 100644
--- a/SL/SEPA/XML/Transaction.pm
+++ b/SL/SEPA/XML/Transaction.pm
@@ -6,7 +6,6 @@ use Carp;
 use Encode;
 use List::Util qw(first);
 use POSIX qw(strftime);
-use Text::Iconv;
 
 sub new {
   my $class = shift;
@@ -26,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';
@@ -34,9 +33,9 @@ sub _init {
 
   croak "Execution date format wrong for '$params{execution_date}': not YYYY-MM-DD." if ($params{execution_date} !~ /^\d{4}-\d{2}-\d{2}$/);
 
-  map { $self->{$_} = decode('UTF-8', $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}->{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(company reference end_to_end_id);
 }
 
 sub get {