View | Details | Raw Unified | Return to bug 7284
Collapse All | Expand All

(-)a/C4/Heading/UNIMARC.pm (-13 / +11 lines)
Lines 59-65 my %subdivisions = ( Link Here
59
59
60
my $bib_heading_fields;
60
my $bib_heading_fields;
61
61
62
BEGIN {
62
=head1 METHODS
63
64
=head2 new
65
66
  my $marc_handler = C4::Heading::UNIMARC->new();
67
68
=cut
69
70
sub new {
71
    my $class = shift;
72
63
    my $dbh = C4::Context->dbh;
73
    my $dbh = C4::Context->dbh;
64
    my $sth = $dbh->prepare(
74
    my $sth = $dbh->prepare(
65
        "SELECT tagfield, authtypecode
75
        "SELECT tagfield, authtypecode
Lines 74-91 BEGIN { Link Here
74
            subfields => 'abcdefghjklmnopqrstvxyz',
84
            subfields => 'abcdefghjklmnopqrstvxyz',
75
        };
85
        };
76
    }
86
    }
77
}
78
79
=head1 METHODS
80
87
81
=head2 new
82
83
  my $marc_handler = C4::Heading::UNIMARC->new();
84
85
=cut
86
87
sub new {
88
    my $class = shift;
89
    return bless {}, $class;
88
    return bless {}, $class;
90
}
89
}
91
90
92
- 

Return to bug 7284