From 104b033c1b39ab3f330b76fc274e972a7655cabc Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Thu, 29 Mar 2012 18:35:04 +0100 Subject: [PATCH] bug 7284: fix package build problem, move BEGIN into new Content-Type: text/plain; charset="UTF-8" Signed-off-by: Jared Camins-Esakov --- C4/Heading/UNIMARC.pm | 23 +++++++++++------------ t/{ => db_dependent}/Heading_MARC21.t | 0 2 files changed, 11 insertions(+), 12 deletions(-) rename t/{ => db_dependent}/Heading_MARC21.t (100%) diff --git a/C4/Heading/UNIMARC.pm b/C4/Heading/UNIMARC.pm index 78536b8..7925345 100644 --- a/C4/Heading/UNIMARC.pm +++ b/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; } diff --git a/t/Heading_MARC21.t b/t/db_dependent/Heading_MARC21.t similarity index 100% rename from t/Heading_MARC21.t rename to t/db_dependent/Heading_MARC21.t -- 1.7.2.5