X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fca.pl;h=774da855a9c37c3449e74d35dbe2cfa4719e968e;hb=c5d1ec183c6ddcb98484c7895e448b5e79f4eabc;hp=27070bb3f4cfdcfd7efe7b787679f4ff983b9d76;hpb=43f9b1c512be9bc2199369c2f5accea32b8bd423;p=kivitendo-erp.git
diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl
index 27070bb3f..774da855a 100644
--- a/bin/mozilla/ca.pl
+++ b/bin/mozilla/ca.pl
@@ -24,7 +24,8 @@
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# module for Chart of Accounts, Income Statement and Balance Sheet
@@ -35,6 +36,7 @@
use POSIX qw(strftime);
use SL::CA;
+use SL::DB::Default;
use SL::ReportGenerator;
require "bin/mozilla/reportgenerator.pl";
@@ -149,215 +151,17 @@ sub chart_of_accounts {
}
sub list {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('report');
-
- $form->{title} = $locale->text('List Transactions');
- $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}";
- my $year = (localtime)[5] + 1900;
+ $::lxdebug->enter_sub;
+ $::auth->assert('report');
- # get departments
- $form->all_departments(\%myconfig);
- if (@{ $form->{all_departments} || [] }) {
- $form->{selectdepartment} = "