From 12b23bc86722ebd63584811e627a68534dfa1ed6 Mon Sep 17 00:00:00 2001 From: Blou Date: Thu, 16 Apr 2015 16:17:06 -0400 Subject: [PATCH] Bug 11300 - Add update_cache method to C4::Linker::Z3950Server to match definition --- C4/Breeding.pm | 2 +- C4/Linker/Z3950Server.pm | 12 ++++++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/C4/Breeding.pm b/C4/Breeding.pm index dcabdac..41b01b9 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -222,7 +222,7 @@ sub Z3950Search { $oConnection[$_]->destroy(); } - my @servers = (); + @servers = (); foreach my $id (@id) { push @servers, {id => $id}; } diff --git a/C4/Linker/Z3950Server.pm b/C4/Linker/Z3950Server.pm index da0a0af..98d3f8e 100644 --- a/C4/Linker/Z3950Server.pm +++ b/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; -- 2.1.0