Revision c510d88b
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 37 | 37 |
use SL::AM; |
| 38 | 38 |
use SL::DBUtils; |
| 39 | 39 |
use SL::Form; |
| 40 |
|
|
| 40 | 41 |
use warnings; |
| 41 |
#use strict; |
|
| 42 |
use strict; |
|
| 43 |
|
|
| 42 | 44 |
sub transfer {
|
| 43 | 45 |
$main::lxdebug->enter_sub(); |
| 44 | 46 |
|
| ... | ... | |
| 242 | 244 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 243 | 245 |
|
| 244 | 246 |
# filters |
| 245 |
my (@filter_ary, @filter_vars, $joins); |
|
| 247 |
my (@filter_ary, @filter_vars, $joins, %select_tokens, %select);
|
|
| 246 | 248 |
|
| 247 | 249 |
if ($filter{warehouse_id} ne '') {
|
| 248 | 250 |
push @filter_ary, "w1.id = ? OR w2.id = ?"; |
| ... | ... | |
| 448 | 450 |
} |
| 449 | 451 |
|
| 450 | 452 |
my @contents = (); |
| 451 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 453 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 452 | 454 |
map { /^r_/; $ref->{"$'"} = $ref->{$_} } keys %$ref;
|
| 453 | 455 |
my $qty = $ref->{"qty"} * 1;
|
| 454 | 456 |
|
| ... | ... | |
| 628 | 630 |
|
| 629 | 631 |
my (%non_empty_bins, @all_fields, @contents); |
| 630 | 632 |
|
| 631 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 633 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 632 | 634 |
$ref->{qty} *= 1;
|
| 633 | 635 |
my $qty = $ref->{qty};
|
| 634 | 636 |
|
Auch abrufbar als: Unified diff
und die restlichen .pm Module.