Revision a0d77095
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| bin/mozilla/kopf.pl | ||
|---|---|---|
| 9 | 9 |
|
| 10 | 10 |
sub run {
|
| 11 | 11 |
my $session_result = shift; |
| 12 |
%::myconfig = $::auth->read_user($::form->{login}) if $::form->{login};
|
|
| 13 |
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
|
|
| 12 | 14 |
|
| 13 | 15 |
my $form = $main::form; |
| 14 | 16 |
my $locale = $main::locale; |
| bin/mozilla/login.pl | ||
|---|---|---|
| 62 | 62 |
$action = 'login'; |
| 63 | 63 |
} |
| 64 | 64 |
if ($action) {
|
| 65 |
our %myconfig = $auth->read_user($form->{login}) if ($form->{login});
|
|
| 65 |
%::myconfig = $auth->read_user($form->{login}) if ($form->{login});
|
|
| 66 |
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
|
|
| 66 | 67 |
|
| 67 |
if (!$myconfig{login} || (SL::Auth::OK != $auth->authenticate($form->{login}, $form->{password}, 0))) {
|
|
| 68 |
if (!$::myconfig{login} || (SL::Auth::OK != $auth->authenticate($form->{login}, $form->{password}, 0))) {
|
|
| 68 | 69 |
$form->{error_message} = $::locale->text('Incorrect Password!');
|
| 69 | 70 |
login_screen(); |
| 70 | 71 |
} else {
|
| 71 | 72 |
$auth->set_session_value('login', $form->{login}, 'password', $form->{password});
|
| 72 | 73 |
$auth->create_or_refresh_session(); |
| 73 | 74 |
|
| 74 |
$form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}";
|
|
| 75 |
$form->{titlebar} .= " - $::myconfig{name} - $::myconfig{dbname}";
|
|
| 75 | 76 |
call_sub($::locale->findsub($action)); |
| 76 | 77 |
} |
| 77 | 78 |
} else {
|
Auch abrufbar als: Unified diff
Bugfix: Locales in company_logo und kopf.pl
login.pl und kopf.pl werden speziell dispatcht und müssen ihre eigenen user
locales initialisieren.