@@ -, +, @@ --- C4/Heading/UNIMARC.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) --- a/C4/Heading/UNIMARC.pm +++ a/C4/Heading/UNIMARC.pm @@ -96,6 +96,21 @@ sub valid_bib_heading_tag { return $bib_heading_fields->{$tag}; } +=head2 valid_bib_heading_subfield + +=cut + +sub valid_bib_heading_subfield { + my $self = shift; + my $tag = shift; + my $subfield = shift; + + if ( exists $bib_heading_fields->{$tag} ) { + return 1 if ($bib_heading_fields->{$tag}->{subfields} =~ /$subfield/); + } + return 0; +} + =head2 parse_heading =cut --