$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;
v3 => 'v3',
neu => 'new',
v4 => 'v4',
- xml => 'XML',
);
my $menu_script = $style_to_script_map{$user->{menustyle}} || '';