X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2fa5768e4830ff60fb5677dde6d22d61f6137f30..ed41d55e5545edd2abb6a2cae868bc6ebc45771d:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index e034a203c..68272b31c 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -674,13 +674,22 @@ sub header {
|;
}
- my $fokus = qq| document.$self->{fokus}.focus();| if ($self->{"fokus"});
+ my $fokus = qq|
+
+ | if $self->{"fokus"};
#Set Calendar
my $jsscript = "";
if ($self->{jsscript} == 1) {
$jsscript = qq|
+
@@ -711,13 +720,7 @@ sub header {
$jsscript
$ajax
-
+ $fokus
@@ -2196,7 +2199,7 @@ sub _get_charts {
my $transdate = quote_db_date($params->{transdate});
my $query =
- qq|SELECT c.id, c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id | .
+ qq|SELECT c.id, c.accno, c.description, c.link, c.charttype, tk.taxkey_id, tk.tax_id | .
qq|FROM chart c | .
qq|LEFT JOIN taxkeys tk ON | .
qq|(tk.id = (SELECT id FROM taxkeys | .