View | Details | Raw Unified | Return to bug 22713
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
Lines 242-247 if ($op eq ""){ Link Here
242
            for (my $i = 0; $i < $count; $i++) {
242
            for (my $i = 0; $i < $count; $i++) {
243
                $budget_hash->{$budget_codes[$i]}->{quantity} += 1;
243
                $budget_hash->{$budget_codes[$i]}->{quantity} += 1;
244
                $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i];
244
                $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i];
245
                $budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i];
245
                $budget_hash->{$budget_codes[$i]}->{itemnumbers} //= [];
246
                $budget_hash->{$budget_codes[$i]}->{itemnumbers} //= [];
246
                push @{ $budget_hash->{$budget_codes[$i]}->{itemnumbers} }, $itemnumbers[$i];
247
                push @{ $budget_hash->{$budget_codes[$i]}->{itemnumbers} }, $itemnumbers[$i];
247
            }
248
            }
248
- 

Return to bug 22713