use Carp;
use List::Util qw(max);
+use Text::ParseWords;
use YAML;
use SL::AM;
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);
}