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

(-)a/acqui/addorderiso2709.pl (-7 / +10 lines)
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
- 

Return to bug 34445