X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/42a430bb9e95dc575ef502f637d850ed3bf9e821..cac2ae9bcd47fc55d35c37e25dbb03cd6ac6edeb:/bin/mozilla/ca.pl diff --git a/bin/mozilla/ca.pl b/bin/mozilla/ca.pl index 37c82e8af..c2fd6a218 100644 --- a/bin/mozilla/ca.pl +++ b/bin/mozilla/ca.pl @@ -153,8 +153,8 @@ sub list { $::lxdebug->enter_sub; $::auth->assert('report'); - $::form->{title} = $::locale->text('List Transactions') . " - " . $::locale->text('Account') . " $::form->{accno}" . " - " . $::form->{description}; - + $::form->{title} = $::locale->text('List Transactions') . " - " . $::locale->text('Account') . " $::form->{accno}"; + $::form->header; print $::form->parse_html_template('ca/list', { year => DateTime->today->year, @@ -184,8 +184,6 @@ sub format_debit_credit { sub list_transactions { $main::lxdebug->enter_sub(); -use Data::Dumper; - my $form = $main::form; my %myconfig = %main::myconfig; my $locale = $main::locale;