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