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 |
- |
|
|