X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/73d0071ffe8ca44dcd3686342e78117477063c33..c8c6d1e8cc86565fb0e0fd290317f28e76bbff3b:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index 6785c3ace..f0ad1a17b 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -263,9 +263,6 @@ sub new { _recode_recursively(SL::Iconv->new($encoding, $db_charset), $self); - $self->{action} = lc $self->{action}; - $self->{action} =~ s/( |-|,|\#)/_/g; - #$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} = ; @@ -765,9 +762,8 @@ sub _prepare_html_template { $file = "templates/webpages/${file}.html"; } else { - my $info = "Web page template '${file}' not found.\n" . - "Please re-run 'locales.pl' in 'locale/${language}'."; - print(qq|
$info
|); + my $info = "Web page template '${file}' not found.\n"; + print qq|
$info
|; ::end_of_request(); }