From 1fc8addc56f8daf12397da568eb1ac1b27fd3984 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 18 Aug 2021 11:11:29 -0700
Subject: quiet warnings about CGI::param in list context

---
 httemplate/search/cust_event.html | 2 +-
 httemplate/search/cust_main.html  | 2 +-
 httemplate/search/log.html        | 4 +++-
 3 files changed, 5 insertions(+), 3 deletions(-)

(limited to 'httemplate/search')

diff --git a/httemplate/search/cust_event.html b/httemplate/search/cust_event.html
index 8bbd1af24..56bf76778 100644
--- a/httemplate/search/cust_event.html
+++ b/httemplate/search/cust_event.html
@@ -163,7 +163,7 @@ die "access denied"
               || $cgi->param('pkgnum')  =~ /^(\d+)$/
             );
 
-my @statuses = $cgi->param('event_status');
+my @statuses = $cgi->multi_param('event_status');
 my $title = 'Billing events';
 if ( $statuses[0] eq 'failed' and !defined($statuses[1]) ) {
   # tweak the title if we're showing only failed events
diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html
index 46e35da7f..8ef068f26 100755
--- a/httemplate/search/cust_main.html
+++ b/httemplate/search/cust_main.html
@@ -70,7 +70,7 @@ for my $param ( @scalars ) {
 
 #lists
 for my $param (qw( classnum refnum pkg_classnum )) {
-  $search_hash{$param} = [ $cgi->param($param) ];
+  $search_hash{$param} = [ $cgi->multi_param($param) ];
 }
 
 my $params = $cgi->Vars;
diff --git a/httemplate/search/log.html b/httemplate/search/log.html
index 9be0b7d0a..96a6f5b64 100644
--- a/httemplate/search/log.html
+++ b/httemplate/search/log.html
@@ -216,7 +216,9 @@ $cgi->param('max_level', 5) unless defined($cgi->param('max_level'));
 
 my %search = ();
 $search{'date'} = [ FS::UI::Web::parse_beginning_ending($cgi) ];
-$search{'level'} = [ $cgi->param('min_level'), $cgi->param('max_level') ];
+$search{'level'} = [ scalar($cgi->param('min_level')),
+                     scalar($cgi->param('max_level'))
+                   ];
 foreach my $param (qw(agentnum context context_height tablename tablenum custnum message)) {
   if ( $cgi->param($param) ) {
     $search{$param} = $cgi->param($param);
-- 
cgit v1.2.1