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