From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 29 Dec 2010 16:10:53 +0000 (+0100)
Subject: Garantieren, dass gewisse Einträge in $self vorhanden sind, bevor sie benutzt werden
X-Git-Tag: release-2.6.2beta1~41
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=19de3c72cf74951dd2f2ae7e400cf9a253d23641;p=kivitendo-erp.git

Garantieren, dass gewisse Einträge in $self vorhanden sind, bevor sie benutzt werden

Fix für Bug 1492.
---

diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm
index 702cf29c0..ea7ca531d 100644
--- a/SL/AccTransCorrections.pm
+++ b/SL/AccTransCorrections.pm
@@ -649,6 +649,8 @@ sub analyze {
 
   my @problems = @{ $self->{problems} };
 
+  map { $self->{$_} ||= [] } qw(ap_ar_taxkey_problems invoice_inventory_taxkey_problems missing_taxkeys_in_invoices);
+
   if (0 != scalar @{ $self->{ap_ar_taxkey_problems} }) {
     my $problem = {
       'type'        => 'ap_ar_wrong_taxkeys',