Revision 9a0d550b
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 467 | 467 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 468 | 468 |
|
| 469 | 469 |
# filters |
| 470 |
my (@filter_ary, @filter_vars, @wh_bin_filter_ary, @wh_bin_filter_vars, $columns, $group_by);
|
|
| 470 |
my (@filter_ary, @filter_vars, @wh_bin_filter_ary, @wh_bin_filter_vars); |
|
| 471 | 471 |
|
| 472 | 472 |
delete $form->{include_empty_bins} unless ($form->{l_warehousedescription} || $form->{l_bindescription});
|
| 473 | 473 |
|
| ... | ... | |
| 569 | 569 |
|
| 570 | 570 |
my $query = |
| 571 | 571 |
qq|SELECT $select_clause |
| 572 |
$columns |
|
| 573 | 572 |
FROM inventory i |
| 574 | 573 |
LEFT JOIN parts p ON i.parts_id = p.id |
| 575 | 574 |
LEFT JOIN bin b ON i.bin_id = b.id |
| 576 | 575 |
LEFT JOIN warehouse w ON i.warehouse_id = w.id |
| 577 | 576 |
$joins |
| 578 | 577 |
WHERE $where_clause |
| 579 |
GROUP BY $group_clause $group_by
|
|
| 578 |
GROUP BY $group_clause |
|
| 580 | 579 |
ORDER BY $sort_spec|; |
| 581 | 580 |
|
| 582 | 581 |
my $sth = prepare_execute_query($form, $dbh, $query, @filter_vars); |
Auch abrufbar als: Unified diff
Unbenutzte und daher überflüssige Variablen entfernt.