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