|
Lines 22-28
use Modern::Perl;
Link Here
|
| 22 |
use MARC::Field; |
22 |
use MARC::Field; |
| 23 |
use C4::Context; |
23 |
use C4::Context; |
| 24 |
use Module::Load qw( load ); |
24 |
use Module::Load qw( load ); |
| 25 |
use List::Util qw( none ); |
25 |
use List::Util qw( none first ); |
| 26 |
|
26 |
|
| 27 |
=head1 NAME |
27 |
=head1 NAME |
| 28 |
|
28 |
|
|
Lines 222-227
sub _search {
Link Here
|
| 222 |
push @value, $thesaurus; |
222 |
push @value, $thesaurus; |
| 223 |
} |
223 |
} |
| 224 |
|
224 |
|
|
|
225 |
if ( C4::Context->preference('ConsiderHeadingUse') ) { |
| 226 |
my $marcflavour = C4::Context->preference('marcflavour'); |
| 227 |
my $biblio_tag = $self->{'field'}->tag; |
| 228 |
if ( $marcflavour eq 'MARC21' ) { |
| 229 |
my $heading_use_search_field = |
| 230 |
$biblio_tag =~ /^[127]/ ? 'Heading-use-main-or-added-entry' |
| 231 |
: $biblio_tag =~ /^6/ ? 'Heading-use-subject-added-entry' |
| 232 |
: $biblio_tag =~ /^[48]/ ? 'Heading-use-series-added-entry' |
| 233 |
: undef; |
| 234 |
if ($heading_use_search_field) { |
| 235 |
push @marclist, $heading_use_search_field; |
| 236 |
push @and_or, 'and'; |
| 237 |
push @excluding, ''; |
| 238 |
push @operator, 'is'; |
| 239 |
push @value, 'a'; |
| 240 |
} |
| 241 |
} |
| 242 |
} |
| 243 |
|
| 225 |
require Koha::SearchEngine::QueryBuilder; |
244 |
require Koha::SearchEngine::QueryBuilder; |
| 226 |
require Koha::SearchEngine::Search; |
245 |
require Koha::SearchEngine::Search; |
| 227 |
|
246 |
|
|
Lines 253-260
sub _search {
Link Here
|
| 253 |
) |
272 |
) |
| 254 |
) |
273 |
) |
| 255 |
{ |
274 |
{ |
| 256 |
pop @value; |
275 |
my $thesaurus_idx = first { $marclist[$_] eq 'thesaurus' } 0 .. $#marclist; |
| 257 |
push @value, 'notdefined'; |
276 |
$value[$thesaurus_idx] = 'notdefined'; |
| 258 |
$search_query = |
277 |
$search_query = |
| 259 |
$builder->build_authorities_query_compat( \@marclist, \@and_or, |
278 |
$builder->build_authorities_query_compat( \@marclist, \@and_or, |
| 260 |
\@excluding, \@operator, \@value, $self->{'auth_type'}, |
279 |
\@excluding, \@operator, \@value, $self->{'auth_type'}, |
| 261 |
- |
|
|