Changeset 2516

Timestamp:

03/23/22 18:45:58 (2 years ago)

Author:

nanardon

Message:

QueryFormat?: allow to deref attribute

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -308 +308 @@
 }
 
+
+sub _deref_attribute {
+    my ( $self, $attribute ) = @_;
+
+    my ( $derefAttr, $target ) = $attribute =~ /([^.]+)(.*)?/;
+
+    my $name = $self->get_c_field( $derefAttr ) or return;
+
+    if ( $target ) {
+        my $Attr = $self->attribute( $derefAttr );
+        if ( my $otype = $Attr->reference ) {
+            my @values;
+            foreach my $n ( ref $name ? @$name : $name ) {
+                my $obj = $self->base->get_object( $otype, $n ) or return;
+                my $res = $obj->_deref_attribute( $target );
+                push(@values, grep { $_ } (ref $res ? @$res : $res));
+            }
+            return scalar(@values) <= 1 ? $values[0] : \@values
+        }
+    } else {
+        return $name;
+    }
+
+}
 
 =head2 queryformat ($fmt)
@@ -333 +357 @@
                 $val = $self->base->QFunc($1, $2);
             } else {
-                $val = $self->get_c_field($2);
+                $val = $self->_deref_attribute($2);
             }