--- bin/mozilla/io.pl.orig 2014-02-28 21:07:16.000000000 +0100 +++ bin/mozilla/io.pl 2015-02-24 16:11:02.000000000 +0100 @@ -540,6 +540,8 @@ my $id = delete($form->{select_item_id}) || croak 'Missing item selection ID'; my $i = $form->{ $mode eq 'IC' ? 'assembly_rows' : 'rowcount' }; + for my $j (1 .. $i-1) {$form->{"qty_$j"}= $form->parse_amount(\%myconfig, $form->{"qty_$j"});} + $form->{"id_${i}"} = $id; if ($mode eq 'IS') { @@ -594,9 +596,9 @@ $::form->{"sellprice_$i"} *= 1 - $::form->{tradediscount}; } } - + $form->{"qty_$i"}= $form->parse_amount(\%myconfig, $form->{"qty_$i"}); map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } - qw(sellprice listprice weight); + qw(sellprice listprice weight qty); $form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"}); @@ -694,7 +696,7 @@ push @a, {}; my $j = $#a; - $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"}); + $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"}); map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;