Lines 556-564
sub marc_records_to_documents {
Link Here
|
556 |
if ( $self->index eq 'authorities' ){ |
556 |
if ( $self->index eq 'authorities' ){ |
557 |
my $authtypecode = GuessAuthTypeCode( $record ); |
557 |
my $authtypecode = GuessAuthTypeCode( $record ); |
558 |
if( $authtypecode ){ |
558 |
if( $authtypecode ){ |
559 |
my $field = $record->field( $auth_match_headings{ $authtypecode } ); |
559 |
if( $authtypecode !~ m/_SUBD/ ){ #Subdivision records will not be used for linking and so don't require match-heading to be built |
560 |
my $heading = C4::Heading->new_from_field( $field, undef, 1 ); #new auth heading |
560 |
my $field = $record->field( $auth_match_headings{ $authtypecode } ); |
561 |
push @{$record_document->{'match-heading'}}, $heading->search_form if $heading; |
561 |
my $heading = C4::Heading->new_from_field( $field, undef, 1 ); #new auth heading |
|
|
562 |
push @{$record_document->{'match-heading'}}, $heading->search_form if $heading; |
563 |
} |
562 |
} else { |
564 |
} else { |
563 |
warn "Cannot determine authority type for record: " . $record->field('001')->as_string; |
565 |
warn "Cannot determine authority type for record: " . $record->field('001')->as_string; |
564 |
} |
566 |
} |
565 |
- |
|
|