From 05e2c8bb438a159ad144fb4614ffb715d84f4c9d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 12 Feb 2016 11:49:28 +0000 Subject: [PATCH] Bug 14076: Do not use CGI->param in list context - opac-authorities-home.pl Content-Type: text/plain; charset=utf-8 See bug 15809 for more info on why we should not use CGI->param in list context. Note: I have not found any places where several values for the same params are passed to this script but, just in case, this patch won't change this ability. Test plan: Do an authority search at the OPAC Test with several values of the form. Confirm that the results are always the same before and after this patch. Signed-off-by: Mark Tompsett Signed-off-by: Marcel de Rooy --- opac/opac-authorities-home.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl index f4ab2ab..d37df85 100755 --- a/opac/opac-authorities-home.pl +++ b/opac/opac-authorities-home.pl @@ -47,12 +47,13 @@ my $resultsperpage; my $authority_types = Koha::Authority::Types->search({}, { order_by => ['authtypetext']}); if ( $op eq "do_search" ) { - my @marclist = ($query->param('marclist')); - my @and_or = ($query->param('and_or')); - my @excluding = ($query->param('excluding'),); - my @operator = ($query->param('operator')); + my @marclist = $query->multi_param('marclist'); + my @and_or = $query->multi_param('and_or'); + my @excluding = $query->multi_param('excluding'); + my @operator = $query->multi_param('operator'); my $orderby = $query->param('orderby'); - my @value = ($query->param('value') || "",); + my @value = $query->multi_param('value'); + $value[0] ||= q||; $resultsperpage = $query->param('resultsperpage'); $resultsperpage = 20 if ( !defined $resultsperpage ); -- 1.7.10.4