Revision 164b344b
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 57 | 57 |
$filter .= qq| AND ($_ ILIKE ?)|; |
| 58 | 58 |
push @filter_values, '%' . $form->{$_} . '%';
|
| 59 | 59 |
} |
| 60 |
$main::lxdebug->dump(0, "assemblies in common", $form->{assemblies});
|
|
| 61 |
$main::lxdebug->dump(0, "no assemblies in common", $form->{no_assemblies});
|
|
| 60 | 62 |
|
| 61 | 63 |
if ($form->{no_assemblies}) {
|
| 62 | 64 |
$filter .= qq| AND (NOT COALESCE(assembly, FALSE))|; |
| ... | ... | |
| 69 | 71 |
} |
| 70 | 72 |
|
| 71 | 73 |
if ($form->{no_services}) {
|
| 72 |
#$filter .= qq| AND (COALESCE(inventory_accno_id, 0) > 0) AND (COALESCE (assembly, FALSE))|; |
|
| 73 |
$filter .= qq| AND (inventory_accno_id is not NULL or assembly=TRUE)|; # @mb hier nochmal optimieren ... |
|
| 74 |
$filter .= qq| AND (inventory_accno_id is not NULL or assembly=TRUE)|; # @mb hier nochmal optimieren ... nach kurzer ruecksprache alles i.o. |
|
| 74 | 75 |
} |
| 75 | 76 |
|
| 76 | 77 |
substr($filter, 1, 3) = "WHERE" if ($filter); |
| ... | ... | |
| 84 | 85 |
qq|ORDER BY $order_by $order_dir|; |
| 85 | 86 |
my $sth = $dbh->prepare($query); |
| 86 | 87 |
$sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");
|
| 88 |
|
|
| 89 |
$main::lxdebug->dump(0, "query", $query); |
|
| 90 |
|
|
| 91 |
$main::lxdebug->dump(0, "values", @filter_values); |
|
| 92 |
|
|
| 93 |
|
|
| 87 | 94 |
my $parts = []; |
| 88 | 95 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 89 | 96 |
push(@{$parts}, $ref);
|
Auch abrufbar als: Unified diff
Pruefung auf Dienstleistung ist vom Meister Bunkus gesegnet