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