# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
+
use MARC::Record;
use MARC::Field;
use C4::Context;
return $results;
}
+=head2 valid_bib_heading_subfield
+
+ if (C4::Heading::valid_bib_heading_subfield('100', 'e', '')) ...
+
+=cut
+
+sub valid_bib_heading_subfield {
+ my $tag = shift;
+ my $subfield = shift;
+ my $marcflavour = @_ ? shift : C4::Context->preference('marcflavour');
+
+ my $marc_handler = _marc_format_handler($marcflavour);
+
+ return $marc_handler->valid_bib_heading_subfield( $tag, $subfield );
+}
+
=head1 INTERNAL METHODS
=head2 _search