| 
      
            Lines 558-566
          sub marc_records_to_documents {
      
      
        Link Here
      
     | 
  
        
          | 558 | 
                      my $authtypecode = GuessAuthTypeCode( $record );  | 
          558 | 
                      my $authtypecode = GuessAuthTypeCode( $record );  | 
        
        
          | 559 | 
                      if( $authtypecode ){ | 
          559 | 
                      if( $authtypecode ){ | 
        
        
          | 560 | 
                          if( $authtypecode !~ m/_SUBD/ ){ #Subdivision records will not be used for linking and so don't require match-heading to be built | 
          560 | 
                          if( $authtypecode !~ m/_SUBD/ ){ #Subdivision records will not be used for linking and so don't require match-heading to be built | 
        
          
            
              | 561 | 
                                  my $field = $record->field( $auth_match_headings{ $authtypecode } ); | 
              561 | 
                                  if ($auth_match_headings{ $authtypecode }) { | 
            
            
              | 562 | 
                                  my $heading = C4::Heading->new_from_field( $field, undef, 1 ); #new auth heading  | 
              562 | 
                                      my $field = $record->field( $auth_match_headings{ $authtypecode } ); | 
            
            
              | 563 | 
                                  push @{$record_document->{'match-heading'}}, $heading->search_form if $heading; | 
              563 | 
                                      my $heading = C4::Heading->new_from_field( $field, undef, 1 ); #new auth heading  | 
            
            
               | 
               | 
              564 | 
                                      push @{$record_document->{'match-heading'}}, $heading->search_form if $heading; | 
            
            
              | 565 | 
                                  }  | 
            
            
              | 566 | 
                                  else { | 
            
            
              | 567 | 
                                      warn "Cannot handle authority type $authtypecode for record: " . $record->field('001')->as     _string. ". It seems like this authority type is not defined in your instance."; | 
            
            
              | 568 | 
                                  }  | 
            
        
          | 564 | 
                          }  | 
          569 | 
                          }  | 
        
        
          | 565 | 
                      } else { | 
          570 | 
                      } else { | 
        
        
          | 566 | 
                          warn "Cannot determine authority type for record: " . $record->field('001')->as_string; | 
          571 | 
                          warn "Cannot determine authority type for record: " . $record->field('001')->as_string; | 
        
            
              | 567 | 
              -   | 
               | 
               |