From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Mon, 12 Aug 2013 13:50:41 +0000 (+0200)
Subject: Warnungen gefixt.
X-Git-Tag: release-3.1.0beta1~22^2~140
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/d161c66c1cd46525a047204d4b747aa5d54bfdd8?ds=sidebyside

Warnungen gefixt.
---

diff --git a/SL/Controller/CsvImport/Order.pm b/SL/Controller/CsvImport/Order.pm
index 8eebb28b8..694a21827 100644
--- 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
-  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'}) {
diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm
index c5d2f4aee..491c393b6 100644
--- 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 ) {
-    $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) {
diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index 758981cc9..ababa0172 100644
--- 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 ) {
-    $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) {