From: Jan Büren <jan@kivitendo-premium.de>
Date: Mon, 25 Sep 2017 07:05:44 +0000 (+0200)
Subject: DATEV: Kein explizites Iconv für Feldwerte
X-Git-Tag: release-3.5.4~806
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2cca9fb0c1b4ec6bee39db8c50e49ab58a92dad1;p=kivitendo-erp.git

DATEV: Kein explizites Iconv für Feldwerte

Perl ist intelligent genug, die Kodierung
umzubiegen, sobald die Daten extern (filehandle)
die Perl-Umgebung wieder verlassen.
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 6f222b566..cc19a12b6 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -36,7 +36,6 @@ use SL::DATEV::CSV;
 use SL::DB;
 use SL::HTML::Util ();
 use SL::Locale::String qw(t8);
-use SL::Iconv qw(convert);
 
 use Data::Dumper;
 use DateTime;
@@ -1369,10 +1368,6 @@ sub csv_buchungsexport {
   foreach my $row ( @datev_lines ) {
     my @current_datev_row;
 
-    # format transformation
-    foreach (qw(belegfeld1 kost1 kost2)) {
-      $row->{$_} = SL::Iconv::convert("UTF-8", "CP1252", $row->{$_}) if $row->{$_};
-    }
     # shorten strings
     if ($row->{belegfeld1}) {
       $row->{buchungsbes} = $row->{belegfeld1} if $row->{belegfeld1};