our $cgi;
our $form;
-our $locale;
our $auth;
sub run {
$cgi = $::cgi;
$form = $::form;
- $locale = $::locale;
$auth = $::auth;
$form->{stylesheet} = "lx-office-erp.css";
$form->{favicon} = "favicon.ico";
if (SL::Auth::SESSION_EXPIRED == $session_result) {
- $form->{error_message} = $locale->text('The session is invalid or has expired.');
+ $form->{error_message} = $::locale->text('The session is invalid or has expired.');
login_screen();
::end_of_request();
}
$action = 'login';
}
if ($action) {
- our %myconfig = $auth->read_user($form->{login}) if ($form->{login});
+ %::myconfig = $auth->read_user($form->{login}) if ($form->{login});
+ $::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
- if (!$myconfig{login} || (SL::Auth::OK != $auth->authenticate($form->{login}, $form->{password}, 0))) {
- $form->{error_message} = $locale->text('Incorrect Password!');
+ if (!$::myconfig{login} || (SL::Auth::OK != $auth->authenticate($form->{login}, $form->{password}, 0))) {
+ $form->{error_message} = $::locale->text('Incorrect username or password!');
login_screen();
} else {
$auth->set_session_value('login', $form->{login}, 'password', $form->{password});
$auth->create_or_refresh_session();
- $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}";
- call_sub($locale->findsub($action));
+ $form->{titlebar} .= " - $::myconfig{name} - $::myconfig{dbname}";
+ call_sub($::locale->findsub($action));
}
} else {
login_screen();
$main::lxdebug->enter_sub();
unless ($form->{login}) {
- login_screen($locale->text('You did not enter a name!'));
+ login_screen($::locale->text('You did not enter a name!'));
::end_of_request();
}
my $result;
if (($result = $user->login($form)) <= -1) {
::end_of_request() if $result == -2;
- login_screen($locale->text('Incorrect username or password!'));
+ login_screen($::locale->text('Incorrect username or password!'));
::end_of_request();
}
# remove the callback to display the message
$form->{callback} = "login.pl?action=";
- $form->redirect($locale->text('You are logged out!'));
+ $form->redirect($::locale->text('You are logged out!'));
$main::lxdebug->leave_sub();
}
$main::lxdebug->enter_sub();
my %myconfig = %main::myconfig;
- $locale = new Locale $myconfig{countrycode}, "login" if ($main::language ne $myconfig{countrycode});
-
$form->{todo_list} = create_todo_list('login_screen' => 1) if (!$form->{no_todo_list});
$form->{stylesheet} = $myconfig{stylesheet};
- $form->{title} = $locale->text('About');
+ $form->{title} = $::locale->text('Lx-Office');
# create the logo screen
$form->header() unless $form->{noheader};
sub show_error {
my $template = shift;
- my %myconfig = %main::myconfig;
- $locale = Locale->new($main::language, 'all');
- $myconfig{countrycode} = $main::language;
+ my %myconfig = %main::myconfig;
+ $myconfig{countrycode} = $::lx_office_conf{system}->{language};
$form->{stylesheet} = 'css/lx-office-erp.css';
$form->header();