Revision 88dea78e
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 39 | 39 |
use SL::IO; |
| 40 | 40 |
use SL::MoreCommon; |
| 41 | 41 |
use SL::DB::Default; |
| 42 |
use SL::Util qw(trim); |
|
| 42 | 43 |
use Data::Dumper; |
| 43 | 44 |
|
| 44 | 45 |
use strict; |
| ... | ... | |
| 457 | 458 |
} |
| 458 | 459 |
if ($form->{"cp_name"}) {
|
| 459 | 460 |
$where .= " AND (cp.cp_name ILIKE ? OR cp.cp_givenname ILIKE ?)"; |
| 460 |
push(@values, ('%' . $form->{"cp_name"} . '%')x2);
|
|
| 461 |
push(@values, ('%' . trim($form->{"cp_name"}) . '%')x2);
|
|
| 461 | 462 |
} |
| 462 | 463 |
if ($form->{department}) {
|
| 463 | 464 |
# ähnlich wie commit 0bbfb33b6aa8e38bb6c81d1684ab7d08e5b5c5af abteilung |
| ... | ... | |
| 493 | 494 |
|
| 494 | 495 |
if ($form->{transdatefrom}) {
|
| 495 | 496 |
$where .= " AND a.transdate >= ?"; |
| 496 |
push(@values, $form->{transdatefrom});
|
|
| 497 |
push(@values, trim($form->{transdatefrom}));
|
|
| 497 | 498 |
} |
| 498 | 499 |
if ($form->{transdateto}) {
|
| 499 | 500 |
$where .= " AND a.transdate <= ?"; |
| 500 |
push(@values, $form->{transdateto});
|
|
| 501 |
push(@values, trim($form->{transdateto}));
|
|
| 501 | 502 |
} |
| 502 | 503 |
if ($form->{open} || $form->{closed}) {
|
| 503 | 504 |
unless ($form->{open} && $form->{closed}) {
|
Auch abrufbar als: Unified diff
Einkaufs-/Verkaufssuchen: bei Textfeldern führende/anhängende Whitespaces entfernen