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 |
|