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();
37 if ( $self->{'cache'}->{$search_form.$auth_type}->{'cached'} ) {
38 $authid = $self->{'cache'}->{$search_form.$auth_type}->{'authid'};
39 $fuzzy = $self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'};
43 # look for matching authorities
44 my $authorities = $heading->authorities(1); # $skipmetadata = true
45 $match_count = scalar @$authorities;
47 if ( $behavior eq 'default' && $#{$authorities} == 0 ) {
48 $authid = $authorities->[0]->{'authid'};
50 elsif ( $behavior eq 'first' && $#{$authorities} >= 0 ) {
51 $authid = $authorities->[0]->{'authid'};
52 $fuzzy = $#{$authorities} > 0;
54 elsif ( $behavior eq 'last' && $#{$authorities} >= 0 ) {
55 $authid = $authorities->[ $#{$authorities} ]->{'authid'};
56 $fuzzy = $#{$authorities} > 0;
59 if ( !defined $authid && $self->{'broader_headings'} ) {
60 my $field = $heading->field();
61 my @subfields = grep { $_->[0] ne '9' } $field->subfields();
62 if ( scalar @subfields > 1 ) {
69 map { $_->[0] => $_->[1] } @subfields
72 $self->get_link( C4::Heading->new_from_field($field),
77 $self->{'cache'}->{$search_form.$auth_type}->{'cached'} = 1;
78 $self->{'cache'}->{$search_form.$auth_type}->{'authid'} = $authid;
79 $self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'} = $fuzzy;
81 return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count;
88 my $search_form = $heading->search_form();
89 my $auth_type = $heading->auth_type();
92 $self->{'cache'}->{$search_form.$auth_type}->{'cached'} = 1;
93 $self->{'cache'}->{$search_form.$auth_type}->{'authid'} = $authid;
94 $self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'} = $fuzzy;
109 C4::Linker::Default - match only if there is a single matching auth