C4/AuthoritiesMarc/UNIMARC.pm

   1 package C4::AuthoritiesMarc::UNIMARC;
   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 with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 use strict;
  21 our $VERSION = 3.00;
  22
  23 =head1 NAME
  24
  25 C4::AuthoritiesMarc::UNIMARC
  26
  27 =head1 SYNOPSIS
  28
  29 use C4::AuthoritiesMarc::UNIMARC;
  30
  31 =head1 DESCRIPTION
  32
  33 This is a helper module providing functions used by
  34 C<C4::AuthoritiesMarc> to deal with behavior specific
  35 to UNIMARC authority records (as opposed to other
  36 MARC formats).
  37
  38 Functions from this module generally should not be used
  39 directly; instead, use the appropriate function from
  40 C<C4::Authorities> that will dispatch the appropriate
  41 function based on the marcflavour system preference.
  42
  43 =head1 FUNCTIONS
  44
  45 =cut
  46
  47 =head2 get_heading_type_from_marc
  48
  49 =over 4
  50
  51 my $auth_type = get_auth_type_from_marc($marc);
  52
  53 =back
  54
  55 Given a MARC::Record object containing an authority record,
  56 determine its heading type (e.g., personal name, topical term,
  57 etc.).
  58
  59 =cut
  60
  61 =head2 default_auth_type_location
  62
  63 =over 4
  64
  65 my ($tag, $subfield) = default_auth_type_location();
  66
  67 =back
  68
  69 Get the tag and subfield used to store the heading type
  70 if not specified in the MARC framework.  For UNIMARC,
  71 this defaults to 152$b.
  72
  73 =cut
  74
  75 sub default_auth_type_location {
  76     return ('152', 'b');
  77 }
  78
  79 =head1 AUTHOR
  80
  81 Koha Developement team <info@koha.org>
  82
  83 Galen Charlton <galen.charlton@liblime.com>
  84
  85 =cut
  86
  87 1;