- Timestamp:
- 06/09/20 20:03:29 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r2393 r2394 1117 1117 # attr=foo => no extra white space ! 1118 1118 # \W is false, it is possible to have two char 1119 my ($NegFilter, $attr, $attrref, $operator, $val) = $item =~ /^([\!\ -]?)(\w+)(?:\.([\.\w]+))?(?:([^\w*]+)(.+))?$/ or next;1119 my ($NegFilter, $attr, $attrref, $operator, $val) = $item =~ /^([\!\+\-]?)(\w+)(?:\.([\.\w]+))?(?:([^\w*]+)(.+))?$/ or next; 1120 1120 if (!$operator) { 1121 1121 $operator = '~'; … … 1178 1178 $results->{$attrKey} ||= {}; 1179 1179 $results->{$attrKey}{$_} = -1 foreach (@results); 1180 } elsif ($NegFilter eq '+') { 1181 # Filter result to filter from attribute result 1182 $results->{$attrKey} ||= {}; 1183 $results->{$attrKey}{$_} = 1 foreach (@results); 1180 1184 } else { 1181 1185 $results->{$attrKey} ||= {};
Note: See TracChangeset
for help on using the changeset viewer.