Revision d3e3d258
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 62 | 62 |
$filter .= qq| AND (NOT COALESCE(assembly, FALSE))|; |
| 63 | 63 |
} |
| 64 | 64 |
if ($form->{assemblies}) {
|
| 65 |
$filter .= qq| AND assembly=TRUE|; # alles was assembly ist rausgeben erweiterung f?r bin/mozilla/wh.pl -> transfer_assembly_update_part
|
|
| 66 |
# eigentlich m?chte ich diesen filter abbilden:
|
|
| 65 |
$filter .= qq| AND assembly=TRUE|; # alles was assembly ist rausgeben erweiterung f?r bin/mozilla/wh.pl -> transfer_assembly_update_part |
|
| 66 |
# eigentlich m?chte ich diesen filter abbilden: |
|
| 67 | 67 |
# select distinct partnumber from parts inner join assembly on (parts.id = assembly.id) where assembly='t'; |
| 68 | 68 |
# und so common ist die anweisung gar nicht. wie w?re es mit auslagern in WH.pm? -> get_all_working_assemblies? jb 21.2.2009 |
| 69 | 69 |
} |
| 70 | 70 |
|
| 71 | 71 |
if ($form->{no_services}) {
|
| 72 |
$filter .= qq| AND (inventory_accno_id is not NULL or assembly=TRUE)|; # @mb hier nochmal optimieren ... nach kurzer ruecksprache alles i.o.
|
|
| 72 |
$filter .= qq| AND (inventory_accno_id is not NULL or assembly=TRUE)|; # @mb hier nochmal optimieren ... nach kurzer ruecksprache alles i.o. |
|
| 73 | 73 |
} |
| 74 | 74 |
|
| 75 | 75 |
substr($filter, 1, 3) = "WHERE" if ($filter); |
| ... | ... | |
| 83 | 83 |
qq|ORDER BY $order_by $order_dir|; |
| 84 | 84 |
my $sth = $dbh->prepare($query); |
| 85 | 85 |
$sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");
|
| 86 |
open STDERR, ">>/usr/local/src/lxoffice/users/de.log" or die $!; print STDERR "hier:" . $query . "filter " . $filter . "filterwerte:" . $filter_values[0] . "\n"; close STDERR; |
|
| 87 | 86 |
my $parts = []; |
| 88 | 87 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 89 | 88 |
push(@{$parts}, $ref);
|
Auch abrufbar als: Unified diff
Debugcode entfernt.