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