Changeset 1870

Timestamp:

12/22/16 11:01:32 (7 years ago)

Author:

nanardon

Message:

Ensure alias using cross object reference are updated

File:

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

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

@@ -715 +715 @@
     }
 
+
+    foreach my $attr (@updated_attributes) {
+        my $oattr = $self->attribute($attr);
+        my $ref = $oattr->reference or next;
+        my $attrref = sprintf('oalias=%s.%s.%s', $self->type, $self->id, $attr);
+        foreach my $alias ($self->base->search_objects($ref, $attrref)) {
+            my $olias = $self->base->GetAlias($ref, $alias) or next;
+            $olias->_update_aliases_ptr;
+        }
+    }
+
     delete($self->base->{__cache}{"_" . $self->type}{$self->id});
     scalar(@updated_attributes);