Revision b6fd15a8
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| SL/Dispatcher/AuthHandler/User.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
use parent qw(Rose::Object); |
| 5 | 5 |
|
| 6 |
use SL::Controller::Layout;
|
|
| 6 |
use SL::Layout::Dispatcher;
|
|
| 7 | 7 |
|
| 8 | 8 |
sub handle {
|
| 9 | 9 |
my ($self, %param) = @_; |
| ... | ... | |
| 16 | 16 |
$self->_error(%param) unless $::myconfig{login};
|
| 17 | 17 |
|
| 18 | 18 |
$::locale = Locale->new($::myconfig{countrycode});
|
| 19 |
$::request->{layout} = SL::Controller::Layout->new(style => $::myconfig{menustyle});
|
|
| 19 |
$::request->{layout} = SL::Layout::Dispatcher->new(style => $::myconfig{menustyle});
|
|
| 20 | 20 |
|
| 21 | 21 |
my $ok = $::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, $::form->{'{AUTH}password'}));
|
| 22 | 22 |
$ok ||= !$::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, undef));
|
Auch abrufbar als: Unified diff
Layout package names refactored
SL::Controller::Layout::* -> SL::Layout::*
SL::Controller::Layout -> SL::Layout::Dispatcher