Changeset 2105

Timestamp:

09/25/17 18:47:33 (7 years ago)

Author:

nanardon

Message:

Add magic attribute setReftoMe allowing to set ref to remote object

File:

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

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

@@ -215 +215 @@
             label => l('Deletion protection'),
             hide => 1,
+        },
+        setReftoMe  => {
+            multiple => 1,
+            managed => 1,
+            delayed => 1,
+            set => sub {
+                my ($self, $data) = @_;
+                my $count = 0;
+                foreach (ref $data ? @{$data} : $data) {
+                    my ($otype, $oname, $attribute) = $_ =~ m/^([^\.]+)\.(.+)\.([^\.]+)$/ or next;
+                    my $object = $base->get_object($otype, $oname) or next;
+                    my $attr = $base->attribute($otype, $attribute) or next;
+                    if ($attr->reference ne $self->object->type) {
+                        $base->log(LA_ERR, "Cannot set $_ pointing to " . $self->object->id . ": attribute does not reference " . $self->object->type);
+                        return;
+                    }
+                    if ($attr->multiple) {
+                        my @values = $object->get_attributes($attribute);
+                        $count += $object->set_c_fields($attribute => [ @values, $self->object->id ]);
+                    } else {
+                        $count += $object->set_c_fields($attribute => $self->object->id);
+                    }
+                }
+                return $count;
+            },
+            label => l('Set me as reference'),
         },
     );