Changeset 494

Timestamp:

10/05/09 07:30:48 (15 years ago)

Author:

nanardon

Message:

• allow aliases modification from users objects

File:

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

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

@@ -306 +306 @@
             foreach (keys %aliases) {
                 if ($aliases{$_} == 2) {
-                    warn "del $_";
+                    if ($self->base->_delete_object('aliases', $_)) {
+                        $res++
+                    } else {
+                        $self->base->log(LA_ERR,
+                            "Cannot remove aliases %s from user %s", $_,
+                            $self->id);
+                    }
                 } elsif ($aliases{$_} == 1) {
-                    warn "new $_";
+                    if ($self->base->_create_c_object('aliases', $_,
+                        forward => [ $self->id ])) {
+                        $res++
+                    } else {
+                        $self->base->log(LA_ERR, 'Cannot set forward %s to user %s',
+                            $_, $self->id);
+                        return
+                    }
                 } # 3 no change
             }