41 lines
897 B
Perl
41 lines
897 B
Perl
package Lemonldap::NG::Portal::UserDB::Choice;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_FIRSTACCESS);
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
extends 'Lemonldap::NG::Portal::Lib::Choice';
|
|
|
|
# INITIALIZATION
|
|
|
|
sub init {
|
|
return $_[0]->SUPER::init(1);
|
|
}
|
|
|
|
# RUNNING METHODS
|
|
|
|
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 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;
|