From daa74212fada8dc02b7373e89954e0b49903fe3c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Fri, 11 Aug 2017 14:14:02 +0200 Subject: [PATCH] CsvImport: worker kann Csv-Helper auch mit scalar-ref als Datei aufrufen. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Der Csv-Helper kann für die Datendatei auch eine Referenz auf Daten erhalten. Die Basis-Klasse der Worker des CsvImports unterstützt das jetzt auch. Damit kann dann z.B. in den Tests $worker->run auch verwendet werden, wenn der Worker in file eben eine Referenz auf die Csv-Daten enthält. --- SL/Controller/CsvImport/Base.pm | 2 +- SL/Controller/CsvImport/BaseMulti.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm index 43906bf80..85eb6fa67 100644 --- a/SL/Controller/CsvImport/Base.pm +++ b/SL/Controller/CsvImport/Base.pm @@ -34,7 +34,7 @@ sub run { $self->controller->track_progress(phase => 'parsing csv', progress => 0); my $profile = $self->profile; - $self->csv(SL::Helper::Csv->new(file => $self->file->file_name, + $self->csv(SL::Helper::Csv->new(file => ('SCALAR' eq ref $self->file)? $self->file: $self->file->file_name, encoding => $self->controller->profile->get('charset'), profile => [{ profile => $profile, class => $self->class, mapping => $self->controller->mappings_for_profile }], ignore_unknown_columns => 1, diff --git a/SL/Controller/CsvImport/BaseMulti.pm b/SL/Controller/CsvImport/BaseMulti.pm index d4bb7455a..b97539489 100644 --- a/SL/Controller/CsvImport/BaseMulti.pm +++ b/SL/Controller/CsvImport/BaseMulti.pm @@ -22,7 +22,7 @@ sub run { my $profile = $self->profile; - $self->csv(SL::Helper::Csv->new(file => $self->file->file_name, + $self->csv(SL::Helper::Csv->new(file => ('SCALAR' eq ref $self->file)? $self->file: $self->file->file_name, encoding => $self->controller->profile->get('charset'), profile => $profile, ignore_unknown_columns => 1, -- 2.20.1