$action = 'login';
}
if ($action) {
- %::myconfig = $auth->read_user($form->{login}) if ($form->{login});
+ %::myconfig = $auth->read_user(login => $form->{login}) if ($form->{login});
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
if (SL::Auth::OK != $auth->authenticate($::myconfig{login}, $form->{password})) {
::end_of_request();
}
- my $user = new User $form->{login};
+ my $user = User->new(login => $form->{login});
# if we get an error back, bale out
my $result;
::end_of_request();
}
- my %style_to_script_map = ( 'v3' => 'v3',
- 'neu' => 'new',
- 'v4' => 'v4',
- 'xml' => 'XML',
- );
+ my %style_to_script_map = (
+ v3 => 'v3',
+ neu => 'new',
+ v4 => 'v4',
+ );
my $menu_script = $style_to_script_map{$user->{menustyle}} || '';