View | Details | Raw Unified | Return to bug 25292
Collapse All | Expand All

(-)a/Koha/Z3950Responder.pm (-1 / +4 lines)
Lines 24-29 use Modern::Perl; Link Here
24
use C4::Biblio qw( GetMarcFromKohaField );
24
use C4::Biblio qw( GetMarcFromKohaField );
25
use C4::Koha qw( GetAuthorisedValues );
25
use C4::Koha qw( GetAuthorisedValues );
26
26
27
use Koha::Caches;
28
27
use Net::Z3950::SimpleServer;
29
use Net::Z3950::SimpleServer;
28
30
29
=head1 NAME
31
=head1 NAME
Lines 180-185 Callback that is called when a new search is performed Link Here
180
sub search_handler {
182
sub search_handler {
181
    my ( $self, $args ) = @_;
183
    my ( $self, $args ) = @_;
182
184
185
    # Flushing L1 to make sure the search will be processed using the correct data
186
    Koha::Caches->flush_L1_caches();
183
    $args->{HANDLE}->search_handler($args);
187
    $args->{HANDLE}->search_handler($args);
184
}
188
}
185
189
186
- 

Return to bug 25292