diff --git a/C4/Heading/UNIMARC.pm b/C4/Heading/UNIMARC.pm
index fa4eb58fc0..81dafaef83 100644
--- a/C4/Heading/UNIMARC.pm
+++ b/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