Revision 0c227fb2
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
use Carp; |
| 38 | 38 |
use List::Util qw(max); |
| 39 |
use Text::ParseWords; |
|
| 39 | 40 |
use YAML; |
| 40 | 41 |
|
| 41 | 42 |
use SL::AM; |
| ... | ... | |
| 211 | 212 |
push @values, like($form->{parts_description});
|
| 212 | 213 |
} |
| 213 | 214 |
|
| 215 |
if ($form->{all}) {
|
|
| 216 |
my @tokens = parse_line('\s+', 0, $form->{all});
|
|
| 217 |
# ordnumber quonumber customer.name vendor.name transaction_description |
|
| 218 |
push @where, <<SQL for @tokens; |
|
| 219 |
( (dord.donumber ILIKE ?) |
|
| 220 |
OR (ct.name ILIKE ?) |
|
| 221 |
OR (dord.transaction_description ILIKE ?)) |
|
| 222 |
SQL |
|
| 223 |
push @values, (like($_))x3 for @tokens; |
|
| 224 |
} |
|
| 225 |
|
|
| 214 | 226 |
if (@where) {
|
| 215 | 227 |
$query .= " WHERE " . join(" AND ", map { "($_)" } @where);
|
| 216 | 228 |
} |
Auch abrufbar als: Unified diff
Schnellsuche für Verkaufs- & Einkaufslieferscheine