account.pm
branchfoerste
changeset 68 e8285fb4fb63
parent 64 6a6c18cddf46
child 69 430b3ecdbbf8
equal deleted inserted replaced
67:deadc72b7e6c 68:e8285fb4fb63
   342 
   342 
   343                 $ag = join ',', sort keys %x;
   343                 $ag = join ',', sort keys %x;
   344 
   344 
   345             }
   345             }
   346 
   346 
   347             $e->replace( (AT_ACLGROUPS) => $ag );
   347             if ($ag) {
       
   348                 $e->replace( (AT_ACLGROUPS) => $ag );
       
   349             } else {
       
   350                 $e->delete( AT_ACLGROUPS );
       
   351             }
   348             $modified++;
   352             $modified++;
   349         }
   353         }
   350 
   354 
   351         if ( my $a = $Cf->primary ) {
   355         if ( my $a = $Cf->primary ) {
   352             $r = $ldap->search(
   356             $r = $ldap->search(