|
Lines 141-146
use Modern::Perl;
Link Here
|
| 141 |
## load Koha modules |
141 |
## load Koha modules |
| 142 |
use C4::Context; |
142 |
use C4::Context; |
| 143 |
use C4::Output qw( output_html_with_http_headers pagination_bar ); |
143 |
use C4::Output qw( output_html_with_http_headers pagination_bar ); |
|
|
144 |
use C4::Circulation qw( barcodedecode ); |
| 144 |
use C4::Auth qw( get_template_and_user ); |
145 |
use C4::Auth qw( get_template_and_user ); |
| 145 |
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra ); |
146 |
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra ); |
| 146 |
use C4::Languages qw( getlanguage getLanguages ); |
147 |
use C4::Languages qw( getlanguage getLanguages ); |
|
Lines 439-444
my $builder = Koha::SearchEngine::QueryBuilder->new(
Link Here
|
| 439 |
my $searcher = Koha::SearchEngine::Search->new( |
440 |
my $searcher = Koha::SearchEngine::Search->new( |
| 440 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
441 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
| 441 |
|
442 |
|
|
|
443 |
# If index indicates the value is a barocode, we need to preproccess it before searching |
| 444 |
for ( my $i = 0; $i < @operands; $i++ ) { |
| 445 |
$operands[$i] = barcodedecode($operands[$i]) if $indexes[$i] eq 'bc'; |
| 446 |
} |
| 447 |
|
| 442 |
## I. BUILD THE QUERY |
448 |
## I. BUILD THE QUERY |
| 443 |
( |
449 |
( |
| 444 |
$error, $query, $simple_query, $query_cgi, |
450 |
$error, $query, $simple_query, $query_cgi, |
| 445 |
- |
|
|