View | Details | Raw Unified | Return to bug 8447
Collapse All | Expand All

(-)a/C4/Linker/Default.pm (-3 / +2 lines)
Lines 56-62 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->replace_with(
Lines 64-70 sub get_link { Link Here
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
                );
69
                );
70
                ( $authid, $fuzzy ) =
70
                ( $authid, $fuzzy ) =
71
- 

Return to bug 8447