Revision 96a42a5a
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 73 | 73 |
return; |
| 74 | 74 |
}; |
| 75 | 75 |
|
| 76 |
my @trans_ids; |
|
| 77 |
|
|
| 76 | 78 |
my $db = SL::DB::Inventory->new->db; |
| 77 | 79 |
$db->do_transaction(sub{
|
| 78 | 80 |
while (my $transfer = shift @args) {
|
| ... | ... | |
| 130 | 132 |
qty => $qty, |
| 131 | 133 |
)->save; |
| 132 | 134 |
} |
| 135 |
|
|
| 136 |
push @trans_ids, $trans_id; |
|
| 133 | 137 |
} |
| 134 | 138 |
}) or do {
|
| 135 | 139 |
$::form->error("Warehouse transfer error: " . join("\n", (split(/\n/, $db->error))[0..2]));
|
| 136 | 140 |
}; |
| 137 | 141 |
|
| 138 | 142 |
$::lxdebug->leave_sub; |
| 143 |
|
|
| 144 |
return @trans_ids; |
|
| 139 | 145 |
} |
| 140 | 146 |
|
| 141 | 147 |
sub transfer_assembly {
|
Auch abrufbar als: Unified diff
WH->transfer gibt jetzt eine liste der erzeugten trans_ids zurück.