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