|
Lines 56-72
sub get_link {
Link Here
|
| 56 |
|
56 |
|
| 57 |
if ( !defined $authid && $self->{'broader_headings'} ) { |
57 |
if ( !defined $authid && $self->{'broader_headings'} ) { |
| 58 |
my $field = $heading->field(); |
58 |
my $field = $heading->field(); |
| 59 |
my @subfields = $field->subfields(); |
59 |
my @subfields = grep { $_->[0] ne '9' } $field->subfields(); |
| 60 |
if ( scalar @subfields > 1 ) { |
60 |
if ( scalar @subfields > 1 ) { |
| 61 |
pop @subfields; |
61 |
pop @subfields; |
| 62 |
$field->replace_with( |
62 |
$field = |
| 63 |
MARC::Field->new( |
63 |
MARC::Field->new( |
| 64 |
$field->tag, |
64 |
$field->tag, |
| 65 |
$field->indicator(1), |
65 |
$field->indicator(1), |
| 66 |
$field->indicator(2), |
66 |
$field->indicator(2), |
| 67 |
map { $_[0] => $_[1] } @subfields |
67 |
map { $_->[0] => $_->[1] } @subfields |
| 68 |
) |
68 |
); |
| 69 |
); |
|
|
| 70 |
( $authid, $fuzzy ) = |
69 |
( $authid, $fuzzy ) = |
| 71 |
$self->get_link( C4::Heading->new_from_bib_field($field), |
70 |
$self->get_link( C4::Heading->new_from_bib_field($field), |
| 72 |
$behavior ); |
71 |
$behavior ); |
| 73 |
- |
|
|