# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
+#use warnings; FIXME - Bug 2505
use MARC::Record;
our $VERSION = 3.00;
=head2 get_heading_type_from_marc
-=over 4
-
-my $auth_type = get_auth_type_from_marc($marc);
-
-=back
+ my $auth_type = get_auth_type_from_marc($marc);
Given a MARC::Record object containing an authority record,
determine its heading type (e.g., personal name, topical term,
=head2 default_auth_type_location
-=over 4
-
-my ($tag, $subfield) = default_auth_type_location();
-
-=back
+ my ($tag, $subfield) = default_auth_type_location();
Get the tag and subfield used to store the heading type
if not specified in the MARC framework. For MARC21,
=head2 fix_marc21_auth_type_location
-=over 4
-
-fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
-
-=back
+ fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
If the incoming C<MARC::Record> object has a 152$b, remove it. If no
field already exists that contains the specified C<$auth_type_tag>
=head1 AUTHOR
-Koha Developement team <info@koha.org>
+Koha Development Team <http://koha-community.org/>
Galen Charlton <galen.charlton@liblime.com>