@@ -, +, @@ --- C4/Heading/UNIMARC.pm | 23 +++++++++++------------ 1 files changed, 11 insertions(+), 12 deletions(-) --- a/C4/Heading/UNIMARC.pm +++ a/C4/Heading/UNIMARC.pm @@ -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; } --