Lines 30-43
sub get_link {
Link Here
|
30 |
my $behavior = shift || 'default'; |
30 |
my $behavior = shift || 'default'; |
31 |
my $search_form = $heading->search_form(); |
31 |
my $search_form = $heading->search_form(); |
32 |
my $auth_type = $heading->auth_type(); |
32 |
my $auth_type = $heading->auth_type(); |
|
|
33 |
my $thesaurus = $heading->{thesaurus} || 'notdefined'; |
33 |
my $authid; |
34 |
my $authid; |
34 |
my $fuzzy = 0; |
35 |
my $fuzzy = 0; |
35 |
my $match_count; |
36 |
my $match_count; |
36 |
|
37 |
|
37 |
if ( $self->{'cache'}->{$search_form.$auth_type}->{'cached'} ) { |
38 |
if ( $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} ) { |
38 |
$authid = $self->{'cache'}->{$search_form.$auth_type}->{'authid'}; |
39 |
$authid = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'}; |
39 |
$fuzzy = $self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'}; |
40 |
$fuzzy = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'}; |
40 |
$match_count = $self->{'cache'}->{$search_form.$auth_type}->{'match_count'}; |
41 |
$match_count = $self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'match_count'}; |
41 |
} |
42 |
} |
42 |
else { |
43 |
else { |
43 |
|
44 |
|
Lines 75-84
sub get_link {
Link Here
|
75 |
} |
76 |
} |
76 |
} |
77 |
} |
77 |
|
78 |
|
78 |
$self->{'cache'}->{$search_form.$auth_type}->{'cached'} = 1; |
79 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} = 1; |
79 |
$self->{'cache'}->{$search_form.$auth_type}->{'authid'} = $authid; |
80 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'} = $authid; |
80 |
$self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'} = $fuzzy; |
81 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'} = $fuzzy; |
81 |
$self->{'cache'}->{$search_form.$auth_type}->{'match_count'} = $match_count; |
82 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'match_count'} = $match_count; |
82 |
} |
83 |
} |
83 |
return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count; |
84 |
return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count; |
84 |
} |
85 |
} |
Lines 89-99
sub update_cache {
Link Here
|
89 |
my $authid = shift; |
90 |
my $authid = shift; |
90 |
my $search_form = $heading->search_form(); |
91 |
my $search_form = $heading->search_form(); |
91 |
my $auth_type = $heading->auth_type(); |
92 |
my $auth_type = $heading->auth_type(); |
|
|
93 |
my $thesaurus = $heading->{thesaurus} || 'notdefined'; |
92 |
my $fuzzy = 0; |
94 |
my $fuzzy = 0; |
93 |
|
95 |
|
94 |
$self->{'cache'}->{$search_form.$auth_type}->{'cached'} = 1; |
96 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'cached'} = 1; |
95 |
$self->{'cache'}->{$search_form.$auth_type}->{'authid'} = $authid; |
97 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'authid'} = $authid; |
96 |
$self->{'cache'}->{$search_form.$auth_type}->{'fuzzy'} = $fuzzy; |
98 |
$self->{'cache'}->{$search_form.$auth_type.$thesaurus}->{'fuzzy'} = $fuzzy; |
97 |
} |
99 |
} |
98 |
|
100 |
|
99 |
sub flip_heading { |
101 |
sub flip_heading { |