X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=fbd1d8554fe86ca666c921e31fff5b5f189c2d22;hb=fb1e65086b66bac948150bbc1e8fd6e300c21823;hp=cab29d426e999fc530e7d6e0ea524bffafb8d657;hpb=7535161df28588d394a01640d898ff12630611a0;p=kivitendo-erp.git diff --git a/SL/Form.pm b/SL/Form.pm index cab29d426..fbd1d8554 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -265,7 +265,11 @@ sub new { $self->{action} = lc $self->{action}; $self->{action} =~ s/( |-|,|\#)/_/g; - $self->{version} = "2.6.1"; + #$self->{version} = "2.6.1"; # Old hardcoded but secure style + open VERSION_FILE, "VERSION"; # New but flexible code reads version from VERSION-file + $self->{version} = ; + close VERSION_FILE; + $self->{version} =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code. $main::lxdebug->leave_sub(); @@ -466,13 +470,22 @@ sub info { if (!$self->{header}) { $self->header; - print qq| - |; + print qq||; } print qq| - -

$msg +

$msg

+ + + + |; } else { @@ -659,6 +672,20 @@ sub header { | if $self->{"fokus"}; + # if there is a title, we put some JavaScript in to the page, wich writes a + # meaningful title-tag for our frameset. + my $title_hack; + if ($self->{"title"}){ + $title_hack = qq| + + |; + } + #Set Calendar my $jsscript = ""; if ($self->{jsscript} == 1) { @@ -694,9 +721,9 @@ sub header { $favicon $jsscript $ajax - $fokus - + $title_hack +