X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fca.pl;h=b45c36d6401834e45f214e600fa55c988214b76e;hb=81d7a3d732eac0e68a4edc8306e48532e9deb637;hp=229e43004c24b4e5671f244c4dd39e0a9e2ce9e1;hpb=9c8799530caff44dca79d0bdfd0ff5964c15194c;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index 229e43004..b45c36d64 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -74,6 +74,8 @@ require "bin/mozilla/reportgenerator.pl"; sub chart_of_accounts { $lxdebug->enter_sub(); + $auth->assert('report'); + $form->{title} = $locale->text('Chart of Accounts'); CA->all_accounts(\%myconfig, \%$form); @@ -105,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)) { @@ -136,8 +139,11 @@ sub chart_of_accounts { sub list { $lxdebug->enter_sub(); + $auth->assert('report'); + $form->{title} = $locale->text('List Transactions'); $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}"; + $year = (localtime)[5] + 1900; # get departments $form->all_departments(\%myconfig); @@ -156,13 +162,76 @@ sub list {