X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FCsv.pm;h=0d471eb09b740865de3d848a7db96770d6768275;hb=bfa674c9d4edc551afa6e27aac6f684a7b8cb656;hp=e9fd45c6a24106cc850442f86d692e22ddb4969c;hpb=42f9ff8af5af7a1c1dd75524d11f38f46c3a1898;p=kivitendo-erp.git diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm index e9fd45c6a..0d471eb09 100644 --- a/SL/Helper/Csv.pm +++ b/SL/Helper/Csv.pm @@ -114,6 +114,7 @@ sub _check_multiplexed { # Each profile needs a class and a row_ident my $info_ok = all { defined $_->{class} && defined $_->{row_ident} } @profile; $self->_push_error([ + undef, 0, "missing class or row_ident in one of the profiles for multiplexed data", 0, @@ -125,6 +126,7 @@ sub _check_multiplexed { my @header = @{ $self->header }; my $t_ok = scalar @profile == scalar @header; $self->_push_error([ + undef, 0, "number of headers and number of profiles must be the same for multiplexed data", 0, @@ -133,6 +135,7 @@ sub _check_multiplexed { $t_ok = all { scalar @$_ > 0} @header; $self->_push_error([ + undef, 0, "no empty headers are allowed for multiplexed data", 0, @@ -231,7 +234,8 @@ sub _check_multiplex_datatype_position { $self->_multiplex_datatype_position($first_pos); return 1; } else { - $self->_push_error([0, + $self->_push_error([undef, + 0, "datatype field must be at the same position for all datatypes for multiplexed data", 0, 0]); @@ -254,6 +258,7 @@ sub _parse_data { my $header = $self->_header_by_row($row); if (!$header) { push @errors, [ + undef, 0, "Cannot get header for row. Maybe row name and datatype field not matching.", 0,