our $locale;
our $auth;
-my @valid_dateformats = qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd);
+my @valid_dateformats = qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd);
my @valid_numberformats = ('1,000.00', '1000.00', '1.000,00', '1000,00');
my @all_stylesheets = qw(lx-office-erp.css Win2000.css Mobile.css kivitendo.css);
my @all_menustyles = (
$locale = $::locale;
$auth = $::auth;
- $form->{stylesheet} = "lx-office-erp.css";
+ $::request->{layout} = SL::Layout::Dispatcher->new(style => 'admin');
+ $::request->{layout}->use_stylesheet("lx-office-erp.css");
$form->{favicon} = "favicon.ico";
if ($form->{action}) {
- if ($auth->authenticate_root($form->{rpw}) != $auth->OK()) {
+ if ($auth->authenticate_root($form->{'{AUTH}admin_password'}) != $auth->OK()) {
+ $auth->punish_wrong_login;
$form->{error_message} = $locale->text('Incorrect Password!');
- $auth->delete_session_value('rpw');
+ $auth->delete_session_value('admin_password');
adminlogin();
} else {
if ($auth->session_tables_present()) {
- delete $::form->{rpw};
+ delete $::form->{'{AUTH}admin_password'};
_apply_dbupgrade_scripts();
}
map { $params{"db_${_}"} = $main::auth->{DB_config}->{$_} } keys %{ $auth->{DB_config} };
+ $params{admin_password} = $::lx_office_conf{authentication}->{admin_password};
+
if (!$main::auth->check_database()) {
$form->{title} = $locale->text('Authentification database creation');
$form->header();
my $locale = $main::locale;
$main::auth->create_tables();
- $main::auth->set_session_value('rpw', $form->{rpw});
+ $main::auth->set_session_value('admin_password', $form->{'{AUTH}admin_password'});
$main::auth->create_or_refresh_session();
my $memberfile = $::lx_office_conf{paths}->{memberfile};
my $form = $main::form;
my $locale = $main::locale;
- $form->{stylesheet} = "lx-office-erp.css";
+ $::request->{layout}->use_stylesheet("lx-office-erp.css");
$form->{title} = $locale->text("Dataset upgrade");
$form->header();