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

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

Return to bug 25292