Changeset 2235 for trunk

Timestamp:

03/08/19 16:50:27 (5 years ago)

Author:

nanardon

Message:

allow to use function in place of attribute

File:

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

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

@@ -316 +316 @@
         $fmt =~ s&(?:%\{([\?!]+)?([^:}%]*)(?::([^}%]*))?\})&
             my $op = $1;
-            my $val = $self->get_c_field($2);
+            my $attr = $2;
+            my $val = '';
+            
+            if ($attr =~ /^(\w+)\((.*)\)$/) {
+                $val = $self->base->QFunc($1, $2);
+            } else {
+                $val = $self->get_c_field($2);
+            }
+
             my $modifier = $3 || '';
             my $res = '';