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

---
 httemplate/search/log.html | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'httemplate/search/log.html')

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