Browse Source

Merge remote-tracking branch 'origin/new/bug_7284'

3.8.x
Paul Poulain 10 years ago
parent
commit
2bc542789f
  1. 23
      C4/Heading/UNIMARC.pm
  2. 0
      t/db_dependent/Heading_MARC21.t

23
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;
}

0
t/Heading_MARC21.t → t/db_dependent/Heading_MARC21.t

Loading…
Cancel
Save