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