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 702cf29..ea7ca53 100644 (file)
--- 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',