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 |
- |
|
|