Changeset 2196 for trunk/LATMOS-Accounts/lib/LATMOS
- Timestamp:
- 02/12/19 01:01:55 (5 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r2193 r2196 1490 1490 label => l('Native country'), 1491 1491 }, 1492 firstAidTrainingValidity => { 1493 formtype => 'DATE', 1494 label => l('Validité formation SST'), 1495 }, 1492 1496 }; 1493 1497 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r2195 r2196 987 987 $val = shift(@filter); 988 988 } 989 990 if (my ($func, $args) = $val =~ /^(\w+)\((.*)\)$/) { 991 $args ||= ''; 992 my @args = split(',', $args); 993 994 my %funcs = ( 995 'now' => sub { DateTime->now->iso8601 }, 996 ); 997 998 if (my $sub = $funcs{ $func }) { 999 $val = $sub->( @args ); 1000 } 1001 } 1002 989 1003 my $attribute = $base->attribute($class->type, $attr) or do { 990 1004 $base->log(LA_ERR, "Unknown attribute $attr"); … … 1023 1037 } 1024 1038 1025 warn "$attr, $operator, $val";1026 1039 my @results = $class->_search_uniq_filter($base, $attr, $operator, $val); 1027 1040
Note: See TracChangeset
for help on using the changeset viewer.