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

(-)a/Koha/Z3950Responder.pm (-1 / +8 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
    my $SearchEngine = C4::Context->preference('SearchEngine');
186
    # Flushing L1 to make sure the search will be processed using the correct data
187
    Koha::Caches->flush_L1_caches();
188
    $self->init_handler($args)
189
        if $SearchEngine ne C4::Context->preference('SearchEngine');
190
183
    $args->{HANDLE}->search_handler($args);
191
    $args->{HANDLE}->search_handler($args);
184
}
192
}
185
193
186
- 

Return to bug 25292