Changeset 767 for LATMOS-Accounts/lib

Timestamp:

01/30/10 14:27:23 (14 years ago)

Author:

nanardon

Message:

• revert previous change in Ldap/User?: invalid perl code and done to handle an impossible case

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/User.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/User.pm

@@ -171 +171 @@
             foreach (keys %users) {
                 $users{$_}{e} && $users{$_}{n} and next;
+                my $group = $base->get_object('group', $_) or next;
                 if ($users{$_}{e}) {
                     $group->{entry}->delete(memberUID => $entry->get_value('cn'));
-                } elsif ($users{$_}{n} && $base->get_object('group', $_)) {
+                } elsif ($users{$_}{n}) {
                     $group->{entry}->add(memberUID => $entry->get_value('cn'));
                 } # else {} # can't happen