X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5b77c5df6b012e57517d21d7ecb89d1511da2fbe..6ac073dbcbdcdc3b5162617653530a32992574af:/SL/Helper/Csv.pm

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;