Changeset 2327 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

12/17/19 15:26:28 (5 years ago)

Author:

nanardon

Message:

Fix queryformat evaluation

File:

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

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

@@ -318 +318 @@
             my $attr = $2;
             my $val = '';
+            my $modifier = $3 || '';
             
             if ($attr =~ /^(\w+)\((.*)\)$/) {
@@ -325 +326 @@
             }
 
-            my $modifier = $3 || '';
             my $res = '';
 
@@ -347 +347 @@
                         last;
                     };
-                    $res = sprintf('%' . ($3 || 's'), ref $val ? join(',', @$val) : (defined($val) ? $val : ''))
+                    $res = sprintf('%' . ($modifier || 's'), ref $val ? join(',', @$val) : (defined($val) ? $val : ''))
                 }
             }