Commit 81950e0b authored by Clément OUDOT's avatar Clément OUDOT

Remove local groups from UserDBLDAP

parent 49c87be8
......@@ -109,13 +109,6 @@ sub setSessionInfo {
sub setGroups {
my ($self) = @_;
my $groups = $self->{sessionInfo}->{groups};
$self->safe->share('$self');
while ( my ( $group, $expr ) = each %{ $self->{groups} } )
{
$expr =~ s/\$(\w+)/\$self->{sessionInfo}->{$1}/g;
$groups .= "$group " if ( $self->safe->reval($expr) );
}
$self->{ldapGroupObjectClass} ||= "groupOfNames";
$self->{ldapGroupAttributeName} ||= "member";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment