item_selected: kein inplace modify auf form in einer schleife.

Potentielle Ursache für den bizarre copy of ARRAY bug.

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index bbbf5f318eb601985e8f200a924c64aa674b7a9b..671cbb04fe0093fb587d44b13400327147bab8ef 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -560,13 +560,15 @@ sub item_selected {
   my $row = $curr_row;
 
   if ($myconfig{item_multiselect}) {
   my $row = $curr_row;
 
   if ($myconfig{item_multiselect}) {

-    foreach (grep(/^select_qty_/, keys(%{ $form }))) {
+    my %multi_items;
+    for (keys %$form) {

       next unless $form->{$_};
       next unless $form->{$_};

-      $_ =~ /^select_qty_(\d+)/;
-      $form->{"id_${row}"}  = $1;
-      $form->{"qty_${row}"} = $form->{$_};
+      next unless /^select_qty_(\d+)/;
+      $multi_items{"id_${row}"}  = $1;
+      $multi_items{"qty_${row}"} = $form->{$_};

       $row++;
     }
       $row++;
     }

+    $form->{$_} = $multi_items{$_} for keys %multi_items;

   } else {
     $form->{"id_${row}"} = delete($form->{select_item_id}) || croak 'Missing item selection ID';
     $row++;
   } else {
     $form->{"id_${row}"} = delete($form->{select_item_id}) || croak 'Missing item selection ID';
     $row++;