Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 35578: Simplify the code using intersect

Browse source 
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Jonathan Druart 2024-01-12 16:54:49 +01:00 committed by Katrin Fischer
parent 0ecb02eff9
commit 602521a80a
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
1 changed files with 6 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
opac/opac-authorities-home.pl
View file

@ -21,6 +21,8 @@ use Modern::Perl;
use CGI qw ( -utf8 );
use URI::Escape qw( uri_escape_utf8 );
use Array::Utils qw(intersect);
use C4::Auth qw( get_template_and_user );
use C4::Context;
@ -55,20 +57,10 @@ if ( $op eq "do_search" ) {
my @value = $query->multi_param('value');
$value[0] ||= q||;
my $valid_marc_list = {
"all" => 1,
"match" => 1,
"mainentry" => 1,
};
my @marclist = ();
foreach my $entry (@input_marclist) {
if ( $valid_marc_list->{$entry} ) {
push( @marclist, $entry );
}
}
if ( !@marclist ) {
push( @marclist, 'all' );
}
# validation of "Where"
my @valid_marc_list = qw( all match mainentry );
my @marclist = intersect( @input_marclist, @valid_marc_list );
@marclist = ('all') unless @marclist;
my $builder = Koha::SearchEngine::QueryBuilder->new(
{ index => $Koha::SearchEngine::AUTHORITIES_INDEX } );