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