1 package C4::Linker::Default;
3 # Copyright 2011 C & P Bibliography Services
5 # This file is part of Koha.
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.
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.
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>.
25 use base qw(C4::Linker);
30 my $behavior = shift || 'default';
31 my $search_form = $heading->search_form();
32 my $auth_type = $heading->auth_type();
33 my $thesaurus = $heading->{thesaurus} || 'notdefined';
38 if ( $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} ) {
39 $authid = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'};
40 $fuzzy = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'};
41 $match_count = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'match_count'};
45 # look for matching authorities
46 my $authorities = $heading->authorities(1); # $skipmetadata = true
47 $match_count = scalar @$authorities;
49 if ( $behavior eq 'default' && $#{$authorities} == 0 ) {
50 $authid = $authorities->[0]->{'authid'};
52 elsif ( $behavior eq 'first' && $#{$authorities} >= 0 ) {
53 $authid = $authorities->[0]->{'authid'};
54 $fuzzy = $#{$authorities} > 0;
56 elsif ( $behavior eq 'last' && $#{$authorities} >= 0 ) {
57 $authid = $authorities->[ $#{$authorities} ]->{'authid'};
58 $fuzzy = $#{$authorities} > 0;
61 if ( !defined $authid && $self->{'broader_headings'} ) {
62 my $field = $heading->field();
63 my @subfields = grep { $_->[0] ne '9' } $field->subfields();
64 if ( scalar @subfields > 1 ) {
71 map { $_->[0] => $_->[1] } @subfields
74 $self->get_link( C4::Heading->new_from_field($field),
79 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} = 1;
80 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'} = $authid;
81 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'} = $fuzzy;
82 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'match_count'} = $match_count;
84 return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count;
91 my $search_form = $heading->search_form();
92 my $auth_type = $heading->auth_type();
93 my $thesaurus = $heading->{thesaurus} || 'notdefined';
96 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} = 1;
97 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'} = $authid;
98 $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'} = $fuzzy;
113 C4::Linker::Default - match only if there is a single matching auth