From 08c340d2caca21066fd8797e29f07facfde7a07c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 18:35:12 +0200
Subject: [PATCH] 2 nicht abgefangene Arraykonvertierungen.

---
 bin/mozilla/am.pl | 2 +-
 bin/mozilla/rp.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e6bf0fc75..27b18e400 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -194,7 +194,7 @@ sub account_header {
   }
 
   # Newaccount Folgekonto
-  if (@{ $form->{NEWACCOUNT} }) {
+  if (@{ $form->{NEWACCOUNT} || [] }) {
     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 db1473ed5..5115ddd35 100644
--- 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);
 
 
-  $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 = (
-- 
2.20.1