Changeset 1470

Timestamp:

11/05/15 09:26:25 (9 years ago)

Author:

nanardon

Message:

Unexport/export related aliases object when unexport/export an user

File:

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

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

@@ -106 +106 @@
                         : ($value ? 1 : 0 );
 
-                    foreach my $al ($self->object->get_attributes('aliases')) {
+                    foreach my $al ($self->object->get_attributes('aliases'), $self->object->id) {
                         my $obj = $self->base->get_object('aliases', $al) or next;
                         $obj->_set_c_fields(
-                            expire => $must_expire
-                                ? strftime(
-                                    "%Y-%m-%d %H:%M:%S",
-                                    localtime(time + 3600 * 24 * 365)
-                                  )
-                                : undef,
+                            exported => $value,
                         );
                     }