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

Timestamp:

02/12/19 01:01:55 (5 years ago)

Author:

nanardon

Message:

Add firstAidTrainingValidity attribute

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• User.pm (modified) (1 diff)
• objects.pm (modified) (2 diffs)

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

@@ -1490 +1490 @@
                 label => l('Native country'),
             },
+            firstAidTrainingValidity => {
+                formtype => 'DATE',
+                label => l('Validité formation SST'),
+            },
     };
 

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

@@ -987 +987 @@
             $val = shift(@filter);
         }
+
+        if (my ($func, $args) = $val =~ /^(\w+)\((.*)\)$/) {
+            $args ||= '';
+            my @args = split(',', $args);
+
+            my %funcs = (
+                'now' => sub { DateTime->now->iso8601 },
+            );
+
+            if (my $sub = $funcs{ $func }) {
+                $val = $sub->( @args );
+            }
+        }
+
         my $attribute = $base->attribute($class->type, $attr) or do {
             $base->log(LA_ERR, "Unknown attribute $attr");
@@ -1023 +1037 @@
         }
 
-        warn "$attr, $operator, $val";
         my @results = $class->_search_uniq_filter($base, $attr, $operator, $val);