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

(-)a/C4/Heading/UNIMARC.pm (-1 / +15 lines)
Lines 96-101 sub valid_bib_heading_tag { Link Here
96
    return $bib_heading_fields->{$tag};
96
    return $bib_heading_fields->{$tag};
97
}
97
}
98
98
99
=head2 valid_bib_heading_subfield
100
101
=cut
102
103
sub valid_bib_heading_subfield {
104
    my $self          = shift;
105
    my $tag           = shift;
106
    my $subfield      = shift;
107
108
    if ( exists $bib_heading_fields->{$tag} ) {
109
        return 1 if ($bib_heading_fields->{$tag}->{subfields} =~ /$subfield/);
110
    }
111
    return 0;
112
}
113
99
=head2 parse_heading
114
=head2 parse_heading
100
115
101
=cut
116
=cut
102
- 

Return to bug 21826