gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 21826: (QA follow-up) Add UNIMARC support 

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Martin Renvoize 2018-11-13 16:02:40 +00:00 committed by Nick Clemens
parent b2b7d376d4
commit 441040264a
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C4/Heading/UNIMARC.pm
View File

@ -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