|
Lines 257-263
if ($op eq ""){
Link Here
|
| 257 |
# Group orderlines from MarcItemFieldsToOrder |
257 |
# Group orderlines from MarcItemFieldsToOrder |
| 258 |
my $budget_hash; |
258 |
my $budget_hash; |
| 259 |
for (my $i = 0; $i < $count; $i++) { |
259 |
for (my $i = 0; $i < $count; $i++) { |
| 260 |
$budget_codes[$i] = $budget_id if !$budget_codes[$i]; # Use default budget if no budget selected in the UI |
260 |
# Use default budget if no budget selected in the UI |
|
|
261 |
$budget_codes[$i] = $budget_id |
| 262 |
if !$budget_codes[$i]; |
| 261 |
$budget_hash->{$budget_codes[$i]}->{quantity} += 1; |
263 |
$budget_hash->{$budget_codes[$i]}->{quantity} += 1; |
| 262 |
$budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; |
264 |
$budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; |
| 263 |
$budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i]; |
265 |
$budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i]; |
| 264 |
- |
|
|