bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / C4 / AuthoritiesMarc / MARC21.pm
1 package C4::AuthoritiesMarc::MARC21;
2
3 # Copyright (C) 2007 LibLime
4
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20 use strict;
21 #use warnings; FIXME - Bug 2505
22 use MARC::Record;
23 our $VERSION = 3.07.00.049;
24
25 =head1 NAME
26
27 C4::AuthoritiesMarc::MARC21
28
29 =head1 SYNOPSIS
30
31 use C4::AuthoritiesMarc::MARC21;
32
33 =head1 DESCRIPTION
34
35 This is a helper module providing functions used by
36 C<C4::AuthoritiesMarc> to deal with behavior specific
37 to MARC21 authority records (as opposed to other
38 MARC formats).
39
40 Functions from this module generally should not be used
41 directly; instead, use the appropriate function from
42 C<C4::Authorities> that will dispatch the appropriate
43 function based on the marcflavour system preference.
44
45 =head1 FUNCTIONS
46
47 =cut
48
49 =head2 get_heading_type_from_marc
50
51   my $auth_type = get_auth_type_from_marc($marc);
52
53 Given a MARC::Record object containing an authority record,
54 determine its heading type (e.g., personal name, topical term,
55 etc.).
56
57 =cut
58
59 =head2 default_auth_type_location
60
61   my ($tag, $subfield) = default_auth_type_location();
62
63 Get the tag and subfield used to store the heading type
64 if not specified in the MARC framework.  For MARC21,
65 this defaults to 942$a.
66
67 =cut
68
69 sub default_auth_type_location {
70     return ('942', 'a');
71 }
72
73 =head2 fix_marc21_auth_type_location 
74
75   fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
76
77 If the incoming C<MARC::Record> object has a 152$b, remove it.  If no
78 field already exists that contains the specified C<$auth_type_tag>
79 and C<$auth_type_subfield>, create a new field whose contents
80 are the original contents of the 152$b.
81
82 This routine exists to deal with a historical problem: MARC21
83 authority records in previous versions of Koha kept the
84 authority type in the 152$b.  While the 152 may be OK for UNIMARC,
85 a 9XX should have been used for MARC21.
86
87 This function is meant to be called from GetAuthority, GetAuthorityXML,
88 and AddAuthority.
89
90 FIXME: This function should be removed once it's determined
91        that no MARC21 users of Koha are using the 152$b
92        to store the authority type.
93
94 =cut
95
96 sub fix_marc21_auth_type_location {
97     my ($auth_marc, $auth_type_tag, $auth_type_subfield) = @_;
98
99     my $auth_type_code;
100     return unless $auth_type_code = $auth_marc->subfield('152', 'b');
101     $auth_marc->delete_field($auth_marc->field('152'));
102     unless ($auth_marc->field($auth_type_tag) && $auth_marc->subfield($auth_type_tag, $auth_type_subfield)) {
103         $auth_marc->add_fields($auth_type_tag,'','', $auth_type_subfield=>$auth_type_code); 
104     }
105     
106 }
107
108 =head1 AUTHOR
109
110 Koha Development Team <http://koha-community.org/>
111
112 Galen Charlton <galen.charlton@liblime.com>
113
114 =cut
115
116 1;