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

Timestamp:

05/14/09 02:09:55 (15 years ago)

Author:

nanardon

Message:

• ensure error are returned

File:

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

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

@@ -47 +47 @@
     my ($self, $base, $mode) = @_;
     (
-        qw(gidNumber description sAMAccountName member memberUID),
+        qw(gidNumber description member memberUID), # sAMAccountName: conflict with user
         ($mode !~ /w/
             ? qw(cn dn)
@@ -69 +69 @@
     }
     my $msg = $base->ldap->add($entry);
+    warn $msg->error if ($msg->code);
     return $msg->code ? 0 : 1;
 }
@@ -115 +116 @@
                 } # else {} # can't happen
                 my $mesg = $self->{entry}->update($self->base->ldap);
-                if ($mesg->code) {
-                    warn $mesg->error;
-                }
             }
             next;
@@ -133 +131 @@
                     $self->{entry}->add(member => $user->get_field('dn'));
                 } # else {} # can't happen
-                my $mesg = $self->{entry}->update($self->base->ldap);
-                if ($mesg->code) {
-                    warn $mesg->error;
-                }
             }
             next;