|
|
@ -59,7 +59,17 @@ my %subdivisions = ( |
|
|
|
|
|
|
|
my $bib_heading_fields; |
|
|
|
|
|
|
|
BEGIN { |
|
|
|
=head1 METHODS |
|
|
|
|
|
|
|
=head2 new |
|
|
|
|
|
|
|
my $marc_handler = C4::Heading::UNIMARC->new(); |
|
|
|
|
|
|
|
=cut |
|
|
|
|
|
|
|
sub new { |
|
|
|
my $class = shift; |
|
|
|
|
|
|
|
my $dbh = C4::Context->dbh; |
|
|
|
my $sth = $dbh->prepare( |
|
|
|
"SELECT tagfield, authtypecode |
|
|
@ -74,18 +84,7 @@ BEGIN { |
|
|
|
subfields => 'abcdefghjklmnopqrstvxyz', |
|
|
|
}; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
=head1 METHODS |
|
|
|
|
|
|
|
=head2 new |
|
|
|
|
|
|
|
my $marc_handler = C4::Heading::UNIMARC->new(); |
|
|
|
|
|
|
|
=cut |
|
|
|
|
|
|
|
sub new { |
|
|
|
my $class = shift; |
|
|
|
return bless {}, $class; |
|
|
|
} |
|
|
|
|
|
|
|