From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Mon, 14 Dec 2015 11:08:30 +0000 (+0100)
Subject: Csv-Helper: Fehlermeldung, wenn Header nicht erkannt wird (Multiplex-Dateien).
X-Git-Tag: release-3.4.1~522
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6ac073dbcbdcdc3b5162617653530a32992574af;p=kivitendo-erp.git

Csv-Helper: Fehlermeldung, wenn Header nicht erkannt wird (Multiplex-Dateien).
---

diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm
index 43aaabb91..08ed9f44e 100644
--- a/SL/Helper/Csv.pm
+++ b/SL/Helper/Csv.pm
@@ -245,6 +245,14 @@ sub _parse_data {
     my $row = $self->_csv->getline($self->_io);
     if ($row) {
       my $header = $self->_header_by_row($row);
+      if (!$header) {
+        push @errors, [
+          0,
+          "Cannot get header for row. Maybe row name and datatype field not matching.",
+          0,
+          0];
+        last;
+      }
       my %hr;
       @hr{@{ $header }} = @$row;
       push @data, \%hr;