Warnungen gefixt.

diff --git a/SL/Controller/CsvImport/Order.pm b/SL/Controller/CsvImport/Order.pm
index 8eebb28b8fd9db046748bac2d33b6e3f97fc9efd..694a2182759f0954d42241fe1a6e1ff5e22b9b99 100644 (file)
--- a/SL/Controller/CsvImport/Order.pm
+++ b/SL/Controller/CsvImport/Order.pm
@@ -398,7 +398,7 @@ sub check_objects {
   }
 
   # If order has errors set error for orderitems as well
   }
 
   # If order has errors set error for orderitems as well

-  my $order_entry;
+  $order_entry = undef;

   foreach my $entry (@{ $self->controller->data }) {
     # Search first order
     if ($entry->{raw_data}->{datatype} eq $self->settings->{'order_column'}) {
   foreach my $entry (@{ $self->controller->data }) {
     # Search first order
     if ($entry->{raw_data}->{datatype} eq $self->settings->{'order_column'}) {

diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm
index c5d2f4aee787fa4a8b249baf9c4b9d15e6d7a7a6..491c393b6dcd3de9c12b439c31adfd1736b08fa7 100644 (file)
--- a/SL/Helper/Csv.pm
+++ b/SL/Helper/Csv.pm
@@ -229,7 +229,7 @@ sub _header_by_row {
 
   # initialize lookup hash if not already done
   if ($self->is_multiplexed && ! defined $self->_row_header ) {
 
   # initialize lookup hash if not already done
   if ($self->is_multiplexed && ! defined $self->_row_header ) {

-    $self->_row_header({ pairwise { $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });
+    $self->_row_header({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });

   }
 
   if ($self->is_multiplexed) {
   }
 
   if ($self->is_multiplexed) {

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index 758981cc9ac074b4a39236e3f21da475ec9bf58c..ababa0172dfc3976efc4bfca5da1344215c43d29 100644 (file)
--- a/SL/Helper/Csv/Dispatcher.pm
+++ b/SL/Helper/Csv/Dispatcher.pm
@@ -59,7 +59,7 @@ sub _specs_by_line {
 
   # initialize lookup hash if not already done
   if ($self->_csv->is_multiplexed && ! defined $self->_row_spec ) {
 
   # initialize lookup hash if not already done
   if ($self->_csv->is_multiplexed && ! defined $self->_row_spec ) {

-    $self->_row_spec({ pairwise { $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } });
+    $self->_row_spec({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } });

   }
 
   if ($self->_csv->is_multiplexed) {
   }
 
   if ($self->_csv->is_multiplexed) {