@@ -, +, @@ C4::Linker::Z3950Server to match definition --- C4/Breeding.pm | 2 +- C4/Linker/Z3950Server.pm | 12 ++++++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -222,7 +222,7 @@ sub Z3950Search { $oConnection[$_]->destroy(); } - my @servers = (); + @servers = (); foreach my $id (@id) { push @servers, {id => $id}; } --- a/C4/Linker/Z3950Server.pm +++ a/C4/Linker/Z3950Server.pm @@ -102,6 +102,18 @@ sub get_link { return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $status; } +sub update_cache { + my $self = shift; + my $heading = shift; + my $authid = shift; + my $search_form = $heading->search_form(); + my $fuzzy = 0; + + $self->{'cache'}->{$search_form}->{'cached'} = 1; + $self->{'cache'}->{$search_form}->{'authid'} = $authid; + $self->{'cache'}->{$search_form}->{'fuzzy'} = $fuzzy; +} + sub flip_heading { my $self = shift; my $heading = shift; --