From 15363af3415b00d4381edafd9b6a4c756f93a587 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 27 Oct 2015 18:27:46 +0100
Subject: [PATCH] GDPDU: datev csv formatierung

---
 SL/GDPDU.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/SL/GDPDU.pm b/SL/GDPDU.pm
index 0978df9f3..c4d0a64bb 100644
--- a/SL/GDPDU.pm
+++ b/SL/GDPDU.pm
@@ -375,11 +375,7 @@ sub do_datev_csv_export {
 
   my @transactions = sort_by { $_->[0]->{sortkey} } @{ $datev->{DATEV} };
 
-  my $csv = Text::CSV_XS->new({
-    binary   => 1,
-    eol      => "\n",
-    sep_char => ";",
-  });
+  my $csv = Text::CSV_XS->new({ binary => 1, eol => "\r\n", sep_char => ",", quote_char => '"' });
 
   my ($fh, $filename) = File::Temp::tempfile();
   binmode($fh, ':utf8');
-- 
2.20.1