2 nicht abgefangene Arraykonvertierungen.

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e6bf0fc753f4c5cff1af7d8aaf8245062ed18d04..27b18e400fc77f1111e30112c5679d57d4fc7e6c 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -194,7 +194,7 @@ sub account_header {
   }
 
   # Newaccount Folgekonto
   }
 
   # Newaccount Folgekonto

-  if (@{ $form->{NEWACCOUNT} }) {
+  if (@{ $form->{NEWACCOUNT} || [] }) {

     if (!$form->{new_chart_valid}) {
       $form->{selectnewaccount} = qq|<option value=""> |. $locale->text('None') .q|</option>|;
     }
     if (!$form->{new_chart_valid}) {
       $form->{selectnewaccount} = qq|<option value=""> |. $locale->text('None') .q|</option>|;
     }

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index db1473ed58b20a614f40e641a0804a540392848d..5115ddd35e3ea9c5b3ef7830223135d9ad35aff5 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -1296,7 +1296,7 @@ sub generate_trial_balance {
   RP->trial_balance(\%myconfig, \%$form, 'beginning_balances' => 1);
 
 
   RP->trial_balance(\%myconfig, \%$form, 'beginning_balances' => 1);
 
 

-  $form->{rowcount} = scalar @{ $form->{TB} };
+  $form->{rowcount} = scalar @{ $form->{TB} || [] };

   $form->{title} = sprintf($locale->text('Trial balance between %s and %s'), $form->{fromdate}, $form->{todate});
 
   my @columns = (
   $form->{title} = sprintf($locale->text('Trial balance between %s and %s'), $form->{fromdate}, $form->{todate});
 
   my @columns = (