koha-dev.rot13.org Git - srvgit/blob - Koha/Filter/MARC/EmbedSeeFromHeadings.pm

   1 package Koha::Filter::MARC::EmbedSeeFromHeadings;
   2
   3 # Copyright 2012 C & P Bibliography Services
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 =head1 NAME
  21
  22 Koha::Filter::MARC::EmbedSeeFromHeadings - embeds see from headings into MARC for indexing
  23
  24 =head1 SYNOPSIS
  25
  26
  27 =head1 DESCRIPTION
  28
  29 Filter to embed see from headings into MARC records.
  30
  31 =cut
  32
  33 use strict;
  34 use warnings;
  35 use Koha::MetadataRecord::Authority;
  36 use C4::Biblio qw( GetMarcFromKohaField );
  37
  38 use base qw(Koha::RecordProcessor::Base);
  39 our $NAME = 'EmbedSeeFromHeadings';
  40
  41 =head2 filter
  42
  43     my $newrecord = $filter->filter($record);
  44     my $newrecords = $filter->filter(\@records);
  45
  46 Embed see from headings into the specified record(s) and return the result.
  47 In order to differentiate added headings from actual headings, a 'z' is
  48 put in the first indicator.
  49
  50 =cut
  51 sub filter {
  52     my $self = shift;
  53     my $record = shift;
  54     my $newrecord;
  55
  56     return unless defined $record;
  57
  58     if (ref $record eq 'ARRAY') {
  59         my @recarray;
  60         foreach my $thisrec (@$record) {
  61             push @recarray, _processrecord($thisrec);
  62         }
  63         $newrecord = \@recarray;
  64     } elsif (ref $record eq 'MARC::Record') {
  65         $newrecord = _processrecord($record);
  66     }
  67
  68     return $newrecord;
  69 }
  70
  71 sub _processrecord {
  72     my $record = shift;
  73
  74     my ($item_tag) = GetMarcFromKohaField( "items.itemnumber" );
  75     $item_tag ||= '';
  76
  77     foreach my $field ( $record->fields() ) {
  78         next if $field->is_control_field();
  79         next if $field->tag() eq $item_tag;
  80         my $authid = $field->subfield('9');
  81
  82         next unless $authid;
  83
  84         my $authority = Koha::MetadataRecord::Authority->get_from_authid($authid);
  85         next unless $authority;
  86         my $auth_marc = $authority->record;
  87         my @seefrom = $auth_marc->field('4..');
  88         my @newfields;
  89         foreach my $authfield (@seefrom) {
  90             my $tag = substr($field->tag(), 0, 1) . substr($authfield->tag(), 1, 2);
  91             next if MARC::Field->is_controlfield_tag($tag);
  92             my $newfield = MARC::Field->new($tag,
  93                     'z',
  94                     $authfield->indicator(2) || ' ',
  95                     '9' => '1');
  96             foreach my $sub ($authfield->subfields()) {
  97                 my ($code,$val) = @$sub;
  98                 $newfield->add_subfields( $code => $val );
  99             }
 100             $newfield->delete_subfield( code => '9' );
 101             push @newfields, $newfield if (scalar($newfield->subfields()) > 0);
 102         }
 103         $record->append_fields(@newfields);
 104     }
 105     return $record;
 106 }
 107
 108 1;