Bug 10552: make several sysprefs available to the OPAC login page

[koha.git] / C4 / Heading / UNIMARC.pm

diff --git a/C4/Heading/UNIMARC.pm b/C4/Heading/UNIMARC.pm
index 78536b8..a3b35b2 100644 (file)
--- a/C4/Heading/UNIMARC.pm
+++ b/C4/Heading/UNIMARC.pm
@@ -24,7 +24,7 @@ use MARC::Record;
 use MARC::Field;
 use C4::Context;
 
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
 
 =head1 NAME
 
@@ -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;
 }