Revision 6a262293
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 939 | 939 |
} |
| 940 | 940 |
|
| 941 | 941 |
sub get_item_availability {
|
| 942 |
$main::lxdebug->enter_sub();
|
|
| 942 |
$::lxdebug->enter_sub;
|
|
| 943 | 943 |
|
| 944 | 944 |
my $self = shift; |
| 945 | 945 |
my %params = @_; |
| ... | ... | |
| 947 | 947 |
Common::check_params(\%params, qw(parts_id)); |
| 948 | 948 |
|
| 949 | 949 |
my @parts_ids = 'ARRAY' eq ref $params{parts_id} ? @{ $params{parts_id} } : ($params{parts_id});
|
| 950 |
my $form = $main::form; |
|
| 951 |
my $myconfig = \%main::myconfig; |
|
| 952 | 950 |
|
| 953 | 951 |
my $query = |
| 954 | 952 |
qq|SELECT i.warehouse_id, i.bin_id, i.chargenumber, i.bestbefore, SUM(qty) AS qty, i.parts_id, |
| ... | ... | |
| 962 | 960 |
HAVING SUM(qty) > 0 |
| 963 | 961 |
ORDER BY LOWER(w.description), LOWER(b.description), LOWER(i.chargenumber), i.bestbefore |
| 964 | 962 |
|; |
| 965 |
my $contents = selectall_hashref_query($form, $form->get_standard_dbh($myconfig), $query, @parts_ids);
|
|
| 963 |
my $contents = selectall_hashref_query($::form, $::form->get_standard_dbh, $query, @parts_ids);
|
|
| 966 | 964 |
|
| 967 |
$main::lxdebug->leave_sub();
|
|
| 965 |
$::lxdebug->leave_sub;
|
|
| 968 | 966 |
|
| 969 | 967 |
return @{ $contents };
|
| 970 | 968 |
} |
Auch abrufbar als: Unified diff
DO.pm::get_item_availability - unnötige loaklisierung von globals entfernt.