|
Lines 83-88
use Koha::Plugins;
Link Here
|
| 83 |
use Koha::Ratings; |
83 |
use Koha::Ratings; |
| 84 |
use Koha::Reviews; |
84 |
use Koha::Reviews; |
| 85 |
use Koha::SearchEngine::Search; |
85 |
use Koha::SearchEngine::Search; |
|
|
86 |
use Koha::SearchEngine::QueryBuilder; |
| 86 |
|
87 |
|
| 87 |
|
88 |
|
| 88 |
my $query = CGI->new(); |
89 |
my $query = CGI->new(); |
|
Lines 197-204
my $ean = GetNormalizedEAN( $record, $marcflavour );
Link Here
|
| 197 |
my $searcher = Koha::SearchEngine::Search->new( |
198 |
my $searcher = Koha::SearchEngine::Search->new( |
| 198 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } |
199 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } |
| 199 |
); |
200 |
); |
|
|
201 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
| 202 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } |
| 203 |
); |
| 204 |
|
| 200 |
my $cleaned_title = $biblio->title; |
205 |
my $cleaned_title = $biblio->title; |
| 201 |
$cleaned_title =~ tr|/||; |
206 |
$cleaned_title =~ tr|/||; |
|
|
207 |
$cleaned_title = $builder->clean_search_term($cleaned_title); |
| 208 |
|
| 202 |
my $query = |
209 |
my $query = |
| 203 |
( C4::Context->preference('UseControlNumber') and $record->field('001') ) |
210 |
( C4::Context->preference('UseControlNumber') and $record->field('001') ) |
| 204 |
? 'rcn:'. $record->field('001')->data . ' AND (bib-level:a OR bib-level:b)' |
211 |
? 'rcn:'. $record->field('001')->data . ' AND (bib-level:a OR bib-level:b)' |
| 205 |
- |
|
|