X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fca.pl;h=b45c36d6401834e45f214e600fa55c988214b76e;hb=81d7a3d732eac0e68a4edc8306e48532e9deb637;hp=a4de2310ed68fb8c52947c7a168585bb2a917b41;hpb=8c7e44938a661e035f62840e1e177353240ace5d;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index a4de2310e..b45c36d64 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -107,6 +107,7 @@ sub chart_of_accounts { my %totals = ('debit' => 0, 'credit' => 0); foreach my $ca (@{ $form->{CA} }) { + next unless defined $ca->{amount}; my $row = { }; foreach (qw(debit credit)) { @@ -142,6 +143,7 @@ sub list { $form->{title} = $locale->text('List Transactions'); $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}"; + $year = (localtime)[5] + 1900; # get departments $form->all_departments(\%myconfig); @@ -160,13 +162,76 @@ sub list {