From 2cca9fb0c1b4ec6bee39db8c50e49ab58a92dad1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Mon, 25 Sep 2017 09:05:44 +0200
Subject: [PATCH] =?utf8?q?DATEV:=20Kein=20explizites=20Iconv=20f=C3=BCr=20?=
 =?utf8?q?Feldwerte?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Perl ist intelligent genug, die Kodierung
umzubiegen, sobald die Daten extern (filehandle)
die Perl-Umgebung wieder verlassen.
---
 SL/DATEV.pm | 5 -----
 1 file changed, 5 deletions(-)

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};
-- 
2.20.1