X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FSEPA%2FXML.pm;h=ddac25e26eed009c48bdc112822f7a635242616a;hb=22ae0bf076b11483f200300b039ae284dd09b324;hp=ee455360f159860262bc7964eca169f9f411de24;hpb=1c603341fc02e3a5a7b5126cd7df6478d2e34700;p=kivitendo-erp.git

diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm
index ee455360f..ddac25e26 100644
--- a/SL/SEPA/XML.pm
+++ b/SL/SEPA/XML.pm
@@ -8,9 +8,9 @@ use Encode;
 use List::Util qw(first sum);
 use List::MoreUtils qw(any);
 use POSIX qw(strftime);
-use Text::Iconv;
 use XML::Writer;
 
+use SL::Iconv;
 use SL::SEPA::XML::Transaction;
 
 sub new {
@@ -34,12 +34,12 @@ sub _init {
 
   map { $self->{$_} = $params{$_} if (exists $params{$_}) } qw(src_charset company message_id grouped);
 
-  $self->{iconv} = Text::Iconv->new($self->{src_charset}, "UTF-8") || croak "Unsupported source charset $self->{src_charset}.";
+  $self->{iconv} = SL::Iconv->new($self->{src_charset}, "UTF-8") || croak "Unsupported source charset $self->{src_charset}.";
 
   my $missing_parameter = first { !$self->{$_} } qw(company message_id);
   croak "Missing parameter: $missing_parameter" if ($missing_parameter);
 
-  map { $self->{$_} = $self->_replace_special_chars(decode('UTF-8', $self->{iconv}->convert($self->{$_}))) } qw(company message_id);
+  map { $self->{$_} = $self->_replace_special_chars($self->{iconv}->convert($self->{$_})) } qw(company message_id);
 }
 
 sub add_transaction {