From de4257ba28f1d6deba825657aa30d97241fbe3c4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Wed, 8 Nov 2017 10:01:52 +0100
Subject: [PATCH] DATEV undef values warnings optimiert
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Die Mandateninformationsdaten müssen nicht zwingend für
den DATEV-Export gefüllt sein. Für die Testfälle sind
diese auch nicht gefüllt. Entsprechend optimiert.
---
 SL/DATEV/CSV.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/SL/DATEV/CSV.pm b/SL/DATEV/CSV.pm
index 8c1537578..45bd5f6fc 100644
--- a/SL/DATEV/CSV.pm
+++ b/SL/DATEV/CSV.pm
@@ -304,6 +304,7 @@ sub _generate_csv_header {
   my $datev = SL::DB::Manager::Datev->get_first();
 
   while (my ($k, $v) = each %meta_datev_to_valid_length) {
+    next unless $datev->{$k};
     $meta_datev{$k} = substr $datev->{$k}, 0, $v;
   }
 
-- 
2.20.1