Changeset 107 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

Timestamp:

05/14/09 03:08:41 (15 years ago)

Author:

nanardon

Message:

• objects::set_fields is called also to terminate work, so always try update, but detect 'no update' error

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm (modified) (5 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

@@ -48 +48 @@
     (
         qw(gidNumber description member memberUID), # sAMAccountName: conflict with user
+                                                    # must be uniq in AD
         ($mode !~ /w/
             ? qw(cn dn)
@@ -110 +111 @@
     my ($self, %data) = @_;
     my %ndata;
-    my $need_change = 0;
     while (my ($f, $val) = each(%data)) {
         $f eq 'memberUID' and do {
@@ -121 +121 @@
                 if ($users{$_}{e}) {
                     $self->{entry}->del(memberUID => $_);
-                    $need_change = 1;
                 } elsif ($users{$_}{n}) {
                     $self->{entry}->add(memberUID => $_);
-                    $need_change = 1;
                 } # else {} # can't happen
                 my $mesg = $self->{entry}->update($self->base->ldap);
@@ -139 +137 @@
                 if ($users{$_}{e}) {
                     $self->{entry}->del(member => $user->get_field('dn'));
-                    $need_change = 1;
                 } elsif ($users{$_}{n}) {
                     $self->{entry}->add(member => $user->get_field('dn'));
-                    $need_change = 1;
                 } # else {} # can't happen
             }
@@ -149 +145 @@
         $ndata{$f} = $val;
     }
-    $need_change || scalar(keys %ndata) or return '0E0';
     $self->SUPER::set_fields(%ndata);
 }