Changeset 105 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.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/User.pm (modified) (2 diffs)

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

@@ -123 +123 @@
     my ($self, %data) = @_;
     my %ndata;
+    my $res = '0E0';
     while (my ($f, $val) = each(%data)) {
         $f eq 'memberOf' and do {
@@ -137 +138 @@
                 } # else {} # can't happen
                 my $mesg = $self->{entry}->update($self->base->ldap);
-                if ($mesg->code) {
-                    warn $mesg->error;
-                }
             }
             next;