Revision 288a0f42
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 560 | 560 |
my $row = $curr_row; |
| 561 | 561 |
|
| 562 | 562 |
if ($myconfig{item_multiselect}) {
|
| 563 |
foreach (grep(/^select_qty_/, keys(%{ $form }))) {
|
|
| 563 |
my %multi_items; |
|
| 564 |
for (keys %$form) {
|
|
| 564 | 565 |
next unless $form->{$_};
|
| 565 |
$_ =~ /^select_qty_(\d+)/;
|
|
| 566 |
$form->{"id_${row}"} = $1;
|
|
| 567 |
$form->{"qty_${row}"} = $form->{$_};
|
|
| 566 |
next unless /^select_qty_(\d+)/;
|
|
| 567 |
$multi_items{"id_${row}"} = $1;
|
|
| 568 |
$multi_items{"qty_${row}"} = $form->{$_};
|
|
| 568 | 569 |
$row++; |
| 569 | 570 |
} |
| 571 |
$form->{$_} = $multi_items{$_} for keys %multi_items;
|
|
| 570 | 572 |
} else {
|
| 571 | 573 |
$form->{"id_${row}"} = delete($form->{select_item_id}) || croak 'Missing item selection ID';
|
| 572 | 574 |
$row++; |
Auch abrufbar als: Unified diff
item_selected: kein inplace modify auf form in einer schleife.
Potentielle Ursache für den bizarre copy of ARRAY bug.