Revision e26049ca
Von Jan Büren vor etwa 9 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 1737 | 1737 |
undef (@all_requests); |
| 1738 | 1738 |
foreach my $i (1 .. $form->{rowcount}) {
|
| 1739 | 1739 |
next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
|
| 1740 |
foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) }) {
|
|
| 1741 |
push @all_requests, $request; |
|
| 1742 |
} |
|
| 1740 |
push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
|
|
| 1743 | 1741 |
} |
| 1744 | 1742 |
DO->transfer_in_out('direction' => $prefix,
|
| 1745 | 1743 |
'requests' => \@all_requests); |
Auch abrufbar als: Unified diff
speak better perlish for last commit