|
Lines 224-230
if ($op eq ""){
Link Here
|
| 224 |
my @notforloans = $input->multi_param('notforloan_' . $import_record->import_record_id); |
224 |
my @notforloans = $input->multi_param('notforloan_' . $import_record->import_record_id); |
| 225 |
my @uris = $input->multi_param('uri_' . $import_record->import_record_id); |
225 |
my @uris = $input->multi_param('uri_' . $import_record->import_record_id); |
| 226 |
my @copynos = $input->multi_param('copyno_' . $import_record->import_record_id); |
226 |
my @copynos = $input->multi_param('copyno_' . $import_record->import_record_id); |
| 227 |
my @budget_codes = $input->multi_param('budget_code_' . $import_record->import_record_id); |
227 |
my @budget_ids = $input->multi_param('budget_code_' . $import_record->import_record_id); |
| 228 |
my @itemprices = $input->multi_param('itemprice_' . $import_record->import_record_id); |
228 |
my @itemprices = $input->multi_param('itemprice_' . $import_record->import_record_id); |
| 229 |
my @replacementprices = $input->multi_param('replacementprice_' . $import_record->import_record_id); |
229 |
my @replacementprices = $input->multi_param('replacementprice_' . $import_record->import_record_id); |
| 230 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $import_record->import_record_id); |
230 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $import_record->import_record_id); |
|
Lines 257-267
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_hash->{$budget_codes[$i]}->{quantity} += 1; |
260 |
# Use default budget if no budget selected in the UI |
| 261 |
$budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; |
261 |
$budget_ids[$i] = $budget_id if !$budget_ids[$i]; |
| 262 |
$budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i]; |
262 |
$budget_hash->{ $budget_ids[$i] }->{quantity} += 1; |
| 263 |
$budget_hash->{$budget_codes[$i]}->{itemnumbers} //= []; |
263 |
$budget_hash->{ $budget_ids[$i] }->{price} = $itemprices[$i]; |
| 264 |
push @{ $budget_hash->{$budget_codes[$i]}->{itemnumbers} }, $itemnumbers[$i]; |
264 |
$budget_hash->{ $budget_ids[$i] }->{replacementprice} = |
|
|
265 |
$replacementprices[$i]; |
| 266 |
$budget_hash->{ $budget_ids[$i] }->{itemnumbers} //= []; |
| 267 |
push @{ $budget_hash->{ $budget_ids[$i] }->{itemnumbers} }, |
| 268 |
$itemnumbers[$i]; |
| 265 |
} |
269 |
} |
| 266 |
|
270 |
|
| 267 |
# Create orderlines from MarcItemFieldsToOrder |
271 |
# Create orderlines from MarcItemFieldsToOrder |
| 268 |
- |
|
|