X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frp.pl;h=25e62594e0ebe2c9353efa972f148d9c4c3456f4;hb=ef92528c3f875dee2b456418adb214ccebb97361;hp=e3c64b0c6aa747d5f70f372acde329cefd9930ea;hpb=e3b8d5321e86ba3ea9dbe3997e21202935f3d140;p=kivitendo-erp.git

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index e3c64b0c6..25e62594e 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -1066,7 +1066,7 @@ sub generate_income_statement {
     }
     hotfix_reformat_date();
   } # Ende Bericht für vorgewählten Zeitraum (warum auch immer die Prüfung (custom eq true) ist ...
-   
+
   RP->income_statement(\%myconfig, \%$form);
 
   ($form->{department}) = split /--/, $form->{department};
@@ -1385,7 +1385,7 @@ sub generate_trial_balance {
   my $edit_url = build_std_url('action=edit', 'type', 'vc');
 
   my $idx;
-  foreach my $accno (@{ $form->{TB} }) {
+  foreach my $accno (@{ $form->{TB} || [] }) {
 
     $accno->{soll} = $accno->{debit};
     $accno->{haben} = $accno->{credit};
@@ -1533,7 +1533,7 @@ sub list_accounts {
   my %subtotals      = map { $_ => 0 } @totals_columns;
   my %totals         = map { $_ => 0 } @totals_columns;
   my $found_heading  = 0;
-  my @tb             = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} };
+  my @tb             = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} || [] };
 
   # sort the whole thing by account numbers and display
   foreach my $idx (0 .. scalar(@tb) - 1) {
@@ -2794,13 +2794,13 @@ sub generate_bwa {
 # Hotfix, um das Datumsformat, die unten hart auf deutsches Datumsformat eingestellt
 # sind, entsprechend mit anderem Formaten (z.B. iso-kodiert) zum Laufen zu bringen (S.a.: Bug 1388)
 sub hotfix_reformat_date {
-  
+
   $main::lxdebug->enter_sub();
-  
+
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
-  
+
   if ($myconfig{dateformat} ne 'dd.mm.yyyy'){
     my $current_dateformat = $myconfig{dateformat};
     $myconfig{dateformat} = 'dd.mm.yyyy';