X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fca.pl;h=1d431916ad2fa3e2b36fc2af1b7d552572761e41;hb=358f1ed4ec3370dd9ffc7cb9505e7960fa719205;hp=497ee6157483da95df7ec11567853eef6be8bd73;hpb=ec022a581e19d03e34ae31e7ba53ee4dde66ea73;p=kivitendo-erp.git diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index 497ee6157..1d431916a 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -37,7 +37,7 @@ use POSIX qw(strftime); use SL::CA; use SL::ReportGenerator; -require "bin/mozilla/report_generator.pl"; +require "bin/mozilla/reportgenerator.pl"; 1; @@ -74,6 +74,8 @@ require "bin/mozilla/report_generator.pl"; sub chart_of_accounts { $lxdebug->enter_sub(); + $auth->assert('report'); + $form->{title} = $locale->text('Chart of Accounts'); CA->all_accounts(\%myconfig, \%$form); @@ -136,8 +138,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 +161,76 @@ sub list {