Csv-Helper lässt header als einfaches Arrayref bei Nicht-Multiplex-Daten zu.

[kivitendo-erp.git] / SL / Helper / Csv / Dispatcher.pm

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index a08a633..3a725b5 100644 (file)
--- a/SL/Helper/Csv/Dispatcher.pm
+++ b/SL/Helper/Csv/Dispatcher.pm
@@ -109,8 +109,9 @@ sub parse_profile {
   my @specs;
 
   my $csv_profile = $self->_csv->profile;
+  my $h_aref = ($self->_csv->is_multiplexed)? $self->_csv->header : [ $self->_csv->header ];
   my $i = 0;
-  foreach my $header (@{ $self->_csv->header }) {
+  foreach my $header (@{ $h_aref }) {
     my $spec = $self->_parse_profile(profile => $csv_profile->[$i]->{profile},
                                      class   => $csv_profile->[$i]->{class},
                                      header  => $header);