From 9a0d550bdc899d8b7ef6e7dd240e391b5738bd89 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 23 Jul 2009 12:39:04 +0200 Subject: [PATCH] =?utf8?q?Unbenutzte=20und=20daher=20=C3=BCberfl=C3=BCssig?= =?utf8?q?e=20Variablen=20entfernt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/WH.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/SL/WH.pm b/SL/WH.pm index 51c27c976..a8492ec0a 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -467,7 +467,7 @@ sub get_warehouse_report { my $dbh = $form->get_standard_dbh($myconfig); # filters - my (@filter_ary, @filter_vars, @wh_bin_filter_ary, @wh_bin_filter_vars, $columns, $group_by); + my (@filter_ary, @filter_vars, @wh_bin_filter_ary, @wh_bin_filter_vars); delete $form->{include_empty_bins} unless ($form->{l_warehousedescription} || $form->{l_bindescription}); @@ -569,14 +569,13 @@ sub get_warehouse_report { my $query = qq|SELECT $select_clause - $columns FROM inventory i LEFT JOIN parts p ON i.parts_id = p.id LEFT JOIN bin b ON i.bin_id = b.id LEFT JOIN warehouse w ON i.warehouse_id = w.id $joins WHERE $where_clause - GROUP BY $group_clause $group_by + GROUP BY $group_clause ORDER BY $sort_spec|; my $sth = prepare_execute_query($form, $dbh, $query, @filter_vars); -- 2.20.1