Revision 16c66f61
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 51 | 51 |
|
| 52 | 52 |
my (@filter_values, $filter); |
| 53 | 53 |
|
| 54 |
foreach (qw(partnumber description)) {
|
|
| 54 |
foreach (qw(partnumber description ean)) {
|
|
| 55 | 55 |
next unless $form->{$_};
|
| 56 | 56 |
|
| 57 | 57 |
$filter .= qq| AND ($_ ILIKE ?)|; |
| ... | ... | |
| 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: |
|
| 67 |
# select distinct partnumber from parts inner join assembly on (parts.id = assembly.id) where assembly='t'; |
|
| 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 |
|
| 65 |
$filter .= qq| AND assembly=TRUE|; |
|
| 69 | 66 |
} |
| 70 | 67 |
|
| 71 | 68 |
if ($form->{no_services}) {
|
| ... | ... | |
| 78 | 75 |
$order_dir = $order_dir ? "ASC" : "DESC"; |
| 79 | 76 |
|
| 80 | 77 |
my $query = |
| 81 |
qq|SELECT id, partnumber, description | . |
|
| 78 |
qq|SELECT id, partnumber, description, ean | .
|
|
| 82 | 79 |
qq|FROM parts $filter | . |
| 83 | 80 |
qq|ORDER BY $order_by $order_dir|; |
| 84 | 81 |
my $sth = $dbh->prepare($query); |
Auch abrufbar als: Unified diff
Bugzilla Eintrag 856 EAN auch fuers Einlagern ... Teil II von III