Lines 549-555
sub LinkBibHeadingsToAuthorities {
Link Here
|
549 |
$authfield->add_subfields( $_->[0] => $_->[1] ) |
549 |
$authfield->add_subfields( $_->[0] => $_->[1] ) |
550 |
if ( $_->[0] =~ /[A-z]/ && $_->[0] ne "a" |
550 |
if ( $_->[0] =~ /[A-z]/ && $_->[0] ne "a" |
551 |
&& C4::Heading::valid_bib_heading_subfield( |
551 |
&& C4::Heading::valid_bib_heading_subfield( |
552 |
$authority_type->auth_tag_to_report, $_->[0] ) |
552 |
$field->tag, $_->[0] ) |
553 |
); |
553 |
); |
554 |
} $field->subfields(); |
554 |
} $field->subfields(); |
555 |
$marcrecordauth->insert_fields_ordered($authfield); |
555 |
$marcrecordauth->insert_fields_ordered($authfield); |
556 |
- |
|
|