Revision 496f55c6
Von Sven Schöling vor etwa 9 Jahren hinzugefügt
| SL/Controller/LoginScreen.pm | ||
|---|---|---|
| 56 | 56 |
} |
| 57 | 57 |
|
| 58 | 58 |
%::myconfig = $login ? $::auth->read_user(login => $login) : (); |
| 59 |
$::form->{login} = $login;
|
|
| 60 | 59 |
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
|
| 61 | 60 |
SL::Dispatcher::AuthHandler::User->new->handle(countrycode => $::myconfig{countrycode});
|
| 62 | 61 |
|
| scripts/console | ||
|---|---|---|
| 117 | 117 |
|
| 118 | 118 |
die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login); |
| 119 | 119 |
|
| 120 |
$::form->{login} = $login; # normaly implicit at login
|
|
| 121 |
|
|
| 122 | 120 |
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
|
| 123 | 121 |
|
| 124 | 122 |
$::instance_conf->init; |
| scripts/task_server.pl | ||
|---|---|---|
| 86 | 86 |
|
| 87 | 87 |
$::auth->restore_session; |
| 88 | 88 |
|
| 89 |
$::form->{login} = $lx_office_conf{task_server}->{login};
|
|
| 90 | 89 |
$::instance_conf->init; |
| 91 | 90 |
|
| 92 | 91 |
$::form->{__ERROR_HANDLER} = sub { die @_ };
|
| t/Support/TestSetup.pm | ||
|---|---|---|
| 44 | 44 |
|
| 45 | 45 |
die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login); |
| 46 | 46 |
|
| 47 |
$::form->{login} = $login; # normaly implicit at login
|
|
| 48 |
|
|
| 49 | 47 |
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
|
| 50 | 48 |
|
| 51 | 49 |
$SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
|
Auch abrufbar als: Unified diff
login nicht aus $::form nehmen. Teil 2
Dabei ergibt sich ein kleines Problem. User spezifische bin/mozilla/
Controller werden geladen bevor das User handling abgeschlossen ist.
Nach dieser Änderung sind die also de facto kaputt.