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