Lines 43-48
use Koha::Suggestions;
Link Here
|
43 |
use Koha::Subscriptions; |
43 |
use Koha::Subscriptions; |
44 |
use Koha::SearchEngine; |
44 |
use Koha::SearchEngine; |
45 |
use Koha::SearchEngine::Search; |
45 |
use Koha::SearchEngine::Search; |
|
|
46 |
use Koha::SearchEngine::QueryBuilder; |
46 |
|
47 |
|
47 |
=head1 NAME |
48 |
=head1 NAME |
48 |
|
49 |
|
Lines 512-517
Returns a query which can be used to search for all component parts of MARC21 bi
Link Here
|
512 |
sub get_components_query { |
513 |
sub get_components_query { |
513 |
my ($self) = @_; |
514 |
my ($self) = @_; |
514 |
|
515 |
|
|
|
516 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
517 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
515 |
my $marc = $self->metadata->record; |
518 |
my $marc = $self->metadata->record; |
516 |
|
519 |
|
517 |
my $searchstr; |
520 |
my $searchstr; |
Lines 542-547
sub get_components_query {
Link Here
|
542 |
else { |
545 |
else { |
543 |
my $cleaned_title = $marc->title; |
546 |
my $cleaned_title = $marc->title; |
544 |
$cleaned_title =~ tr|/||; |
547 |
$cleaned_title =~ tr|/||; |
|
|
548 |
$cleaned_title = $builder->clean_search_term($cleaned_title); |
545 |
$searchstr = "Host-item:($cleaned_title)"; |
549 |
$searchstr = "Host-item:($cleaned_title)"; |
546 |
} |
550 |
} |
547 |
|
551 |
|
548 |
- |
|
|