X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a9903fd72fc5a09d99eb60707dfd3aadcabfe73f..4543999aeca36e07555a0fa508cf9d0580e34c70:/SL/DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index 1f431ce2d..6a9195332 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -36,6 +36,7 @@ package DO;
 
 use Carp;
 use List::Util qw(max);
+use Text::ParseWords;
 use YAML;
 
 use SL::AM;
@@ -211,6 +212,17 @@ SQL
     push @values, like($form->{parts_description});
   }
 
+  if ($form->{all}) {
+    my @tokens = parse_line('\s+', 0, $form->{all});
+    # ordnumber quonumber customer.name vendor.name transaction_description
+    push @where, <<SQL for @tokens;
+      (   (dord.donumber                ILIKE ?)
+       OR (ct.name                      ILIKE ?)
+       OR (dord.transaction_description ILIKE ?))
+SQL
+    push @values, (like($_))x3 for @tokens;
+  }
+
   if (@where) {
     $query .= " WHERE " . join(" AND ", map { "($_)" } @where);
   }