From f9af406f2e19ad2c321b66525f7b046d95ef6ead Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 3 Mar 2011 11:48:39 +0100 Subject: [PATCH] =?utf8?q?Ausgew=C3=A4hltes=20Zahlenformat=20ber=C3=BCcksi?= =?utf8?q?chtigen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Controller/CsvImport/Base.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm index a61b03f29..6a66e8ca1 100644 --- a/SL/Controller/CsvImport/Base.pm +++ b/SL/Controller/CsvImport/Base.pm @@ -30,6 +30,10 @@ sub run { strict_profile => 1, map { ( $_ => $self->controller->profile->get($_) ) } qw(sep_char escape_char quote_char), )); + + my $old_numberformat = $::myconfig{numberformat}; + $::myconfig{numberformat} = $self->controller->profile->get('numberformat'); + $self->csv->parse; $self->controller->errors([ $self->csv->errors ]) if $self->csv->errors; @@ -50,6 +54,8 @@ sub run { $self->check_objects; $self->check_duplicates if $self->controller->profile->get('duplicates', 'no_check') ne 'no_check'; $self->fix_field_lengths; + + $::myconfig{numberformat} = $old_numberformat; } sub add_columns { -- 2.20.1