our
$VERSION
=
'2.0.11'
;
sub
init {
return
$_
[0]->SUPER::init(1);
}
sub
getUser {
my
(
$self
,
$req
,
%args
) =
@_
;
$self
->checkChoice(
$req
) or
return
PE_FIRSTACCESS;
my
$res
=
$req
->data->{enabledMods1}->[0]->getUser(
$req
,
%args
);
delete
$req
->pdata->{_choice}
if
(
$res
> 0 );
return
$res
;
}
sub
findUser {
my
(
$self
,
$req
,
%args
) =
@_
;
$self
->checkChoice(
$req
) or
return
PE_FIRSTACCESS;
my
$res
=
$req
->data->{enabledMods1}->[0]->findUser(
$req
,
%args
);
delete
$req
->pdata->{_choice}
if
(
$res
> 0 );
return
$res
;
}
sub
setSessionInfo {
my
$res
=
$_
[1]->data->{enabledMods1}->[0]->setSessionInfo(
$_
[1] );
delete
$_
[1]->pdata->{_choice}
if
(
$res
> 0 );
return
$res
;
}
sub
setGroups {
$_
[0]->checkChoice(
$_
[1] );
my
$res
=
$_
[1]->data->{enabledMods1}->[0]->setGroups(
$_
[1] );
delete
$_
[1]->pdata->{_choice}
if
(
$res
> 0 );
return
$res
;
}
1;