X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=2dcd31f7c386b269e2c05ac53757ce8008f40f61;hb=5547891f42ef3b13d477eba65bb0537ece1d703c;hp=6785c3ace1ba71284aabaab7ff799dddb016e49c;hpb=95ecb4289e58990f441f0273182c55f45f26bfb6;p=kivitendo-erp.git diff --git a/SL/Form.pm b/SL/Form.pm index 6785c3ace..2dcd31f7c 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -48,6 +48,7 @@ use SL::Auth; use SL::Auth::DB; use SL::Auth::LDAP; use SL::AM; +use SL::DB; use SL::Common; use SL::DBUtils; use SL::Mailer; @@ -263,9 +264,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 +763,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(); } @@ -1584,7 +1581,7 @@ sub get_standard_dbh { undef $standard_dbh; } - $standard_dbh ||= $self->dbconnect_noauto($myconfig); + $standard_dbh ||= SL::DB::create->dbh; $main::lxdebug->leave_sub(2);