projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote-tracking branch 'origin/new/bug_7876'
[koha_gimpoz]
/
C4
/
Heading
/
UNIMARC.pm
diff --git
a/C4/Heading/UNIMARC.pm
b/C4/Heading/UNIMARC.pm
index
78536b8
..
7925345
100644
(file)
--- a/
C4/Heading/UNIMARC.pm
+++ b/
C4/Heading/UNIMARC.pm
@@
-59,7
+59,17
@@
my %subdivisions = (
my $bib_heading_fields;
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
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare(
"SELECT tagfield, authtypecode
@@
-74,18
+84,7
@@
BEGIN {
subfields => 'abcdefghjklmnopqrstvxyz',
};
}
subfields => 'abcdefghjklmnopqrstvxyz',
};
}
-}
-
-=head1 METHODS
-=head2 new
-
- my $marc_handler = C4::Heading::UNIMARC->new();
-
-=cut
-
-sub new {
- my $class = shift;
return bless {}, $class;
}
return bless {}, $class;
}