From b14b17800d3b3afb37b0c11ac558b07d7042f4c4 Mon Sep 17 00:00:00 2001
From: "G. Richardson" <information@kivitendo-premium.de>
Date: Sun, 12 Feb 2017 13:05:58 +0100
Subject: [PATCH] =?utf8?q?DATEV=20Export=20-=20Vorbereitung=20f=C3=BCr=20C?=
 =?utf8?q?SV=20Export?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DATEV.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 8756c7295..0132855ae 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -56,10 +56,11 @@ use Time::HiRes qw(gettimeofday);
 
     DATEV_FORMAT_KNE   => $i++,
     DATEV_FORMAT_OBE   => $i++,
+    DATEV_FORMAT_CSV   => $i++,
   };
 }
 
-my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE);
+my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE DATEV_FORMAT_CSV);
 our @EXPORT_OK = (@export_constants);
 our %EXPORT_TAGS = (CONSTANTS => [ @export_constants ]);
 
@@ -311,7 +312,9 @@ sub export {
 
   die 'no format set!' unless $self->has_format;
 
-  if ($self->format == DATEV_FORMAT_KNE) {
+   if ($self->format == DATEV_FORMAT_CSV) {
+    $result = $self->csv_export;
+  } elsif ($self->format == DATEV_FORMAT_KNE) {
     $result = $self->kne_export;
   } elsif ($self->format == DATEV_FORMAT_OBE) {
     $result = $self->obe_export;
@@ -341,6 +344,10 @@ sub kne_export {
   return $result;
 }
 
+sub csv_export {
+  die 'not yet implemented';
+}
+
 sub obe_export {
   die 'not yet implemented';
 }
-- 
2.20.1