X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/da364d0f6dd660d289f890c1423b0c0dd51f690c..46b430e4f4e0cc49c175840eb6ef6735bf6223b7:/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;