Changeset 122 for LATMOS-Accounts/lib/LATMOS

Timestamp:

05/17/09 17:18:52 (15 years ago)

Author:

nanardon

Message:

• add a generic search function

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Objects.pm (modified) (1 diff)
• Bases/Sql/objects.pm (modified) (1 diff)

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

@@ -304 +304 @@
 }
 
+=head2 search_objects($otype, %filter)
+
+Search object according %filter. %filter is a list
+of field/value which should match.
+
+A default function is provided but each db driver can provide
+an optimize version.
+
+=cut
+
+sub search_objects {
+    my ($self, $otype, %filter) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->search($self, %filter);
+}
+
 1;
 

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

@@ -245 +245 @@
 }
 
+sub search {
+    my ($class, $base, %filter) = @_;
+    my @results;
+    foreach my $id ($base->list_objects($class->type)) {
+        my $obj = $base->get_object($class->type, $id);
+        my $match = 1;
+        foreach my $field (keys %filter) {
+            my $value = $filter{$field};
+            $base->get_field_name($class->type, $field, 'r') or next;
+            my $fval = $obj->get_c_field($field) || '';
+            if ($fval !~ m/\Q$value\E/i) {
+                $match = 0;
+                last;
+            }
+        }
+        push(@results, $id) if($match);
+    }
+    @results;
+}
+
 1;
 

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

@@ -124 +124 @@
 sub _get_field_name {
     my ($class, $c_field, $base, $for) = @_;
+    $c_field or return;
     $for ||= 'rw';
     my $inline = $class->_inline_fields($for) || {};