signed off Bug 7284: Authority matching improvements
[koha.git] / C4 / Linker / Default.pm
1 package C4::Linker::Default;
2
3 # Copyright 2011 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 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;
22 use Carp;
23 use MARC::Field;
24 use C4::Heading;
25
26 use base qw(C4::Linker);
27
28 sub get_link {
29     my $self        = shift;
30     my $heading     = shift;
31     my $behavior    = shift || 'default';
32     my $search_form = $heading->search_form();
33     my $authid;
34     my $fuzzy = 0;
35
36     if ( $self->{'cache'}->{$search_form}->{'cached'} ) {
37         $authid = $self->{'cache'}->{$search_form}->{'authid'};
38         $fuzzy  = $self->{'cache'}->{$search_form}->{'fuzzy'};
39     }
40     else {
41
42         # look for matching authorities
43         my $authorities = $heading->authorities(1);    # $skipmetadata = true
44
45         if ( $behavior eq 'default' && $#{$authorities} == 0 ) {
46             $authid = $authorities->[0]->{'authid'};
47         }
48         elsif ( $behavior eq 'first' && $#{$authorities} >= 0 ) {
49             $authid = $authorities->[0]->{'authid'};
50             $fuzzy  = $#{$authorities} > 0;
51         }
52         elsif ( $behavior eq 'last' && $#{$authorities} >= 0 ) {
53             $authid = $authorities->[ $#{$authorities} ]->{'authid'};
54             $fuzzy  = $#{$authorities} > 0;
55         }
56
57         if ( !defined $authid && $self->{'broader_headings'} ) {
58             my $field     = $heading->field();
59             my @subfields = $field->subfields();
60             if ( scalar @subfields > 1 ) {
61                 pop @subfields;
62                 $field->replace_with(
63                     MARC::Field->new(
64                         $field->tag,
65                         $field->indicator(1),
66                         $field->indicator(2),
67                         map { $_[0] => $_[1] } @subfields
68                     )
69                 );
70                 ( $authid, $fuzzy ) =
71                   $self->get_link( C4::Heading->new_from_bib_field($field),
72                     $behavior );
73             }
74         }
75
76         $self->{'cache'}->{$search_form}->{'cached'} = 1;
77         $self->{'cache'}->{$search_form}->{'authid'} = $authid;
78         $self->{'cache'}->{$search_form}->{'fuzzy'}  = $fuzzy;
79     }
80     return $self->SUPER::_handle_auth_limit($authid), $fuzzy;
81 }
82
83 sub flip_heading {
84     my $self    = shift;
85     my $heading = shift;
86
87     # TODO: implement
88 }
89
90 1;
91 __END__
92
93 =head1 NAME
94
95 C4::Linker::Default - match only if there is a single matching auth
96
97 =cut