lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Choice.pm

package Lemonldap::NG::Portal::UserDB::Choice;

use strict;
use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(PE_FIRSTACCESS);

our $VERSION = '2.0.11';

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 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;