Changeset 164

Timestamp:

05/23/09 06:39:16 (15 years ago)

Author:

nanardon

Message:

• allow search over magic '*'

File:

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

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

@@ -255 +255 @@
             $base->get_field_name($class->type, $field, 'r') or next;
             my $fval = $obj->get_c_field($field) || '';
-            if ($fval !~ m/\Q$value\E/i) {
+            if ($value eq '*') {
+                if ($fval eq '') {
+                    $match = 0;
+                    last;
+                }
+            } elsif ($fval !~ m/\Q$value\E/i) {
                 $match = 0;
                 last;