Lines 21-26
use Modern::Perl;
Link Here
|
21 |
|
21 |
|
22 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
23 |
use URI::Escape qw( uri_escape_utf8 ); |
23 |
use URI::Escape qw( uri_escape_utf8 ); |
|
|
24 |
use Array::Utils qw(intersect); |
25 |
|
24 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Auth qw( get_template_and_user ); |
25 |
|
27 |
|
26 |
use C4::Context; |
28 |
use C4::Context; |
Lines 55-74
if ( $op eq "do_search" ) {
Link Here
|
55 |
my @value = $query->multi_param('value'); |
57 |
my @value = $query->multi_param('value'); |
56 |
$value[0] ||= q||; |
58 |
$value[0] ||= q||; |
57 |
|
59 |
|
58 |
my $valid_marc_list = { |
60 |
# validation of "Where" |
59 |
"all" => 1, |
61 |
my @valid_marc_list = qw( all match mainentry ); |
60 |
"match" => 1, |
62 |
my @marclist = intersect( @input_marclist, @valid_marc_list ); |
61 |
"mainentry" => 1, |
63 |
@marclist = ('all') unless @marclist; |
62 |
}; |
|
|
63 |
my @marclist = (); |
64 |
foreach my $entry (@input_marclist) { |
65 |
if ( $valid_marc_list->{$entry} ) { |
66 |
push( @marclist, $entry ); |
67 |
} |
68 |
} |
69 |
if ( !@marclist ) { |
70 |
push( @marclist, 'all' ); |
71 |
} |
72 |
|
64 |
|
73 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
65 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
74 |
{ index => $Koha::SearchEngine::AUTHORITIES_INDEX } ); |
66 |
{ index => $Koha::SearchEngine::AUTHORITIES_INDEX } ); |
75 |
- |
|
|