From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 27 Apr 2022 19:18:49 +0000 (-0700)
Subject: quiet warnings about CGI::param in list context
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=20fd2b82dfea4520a7f36584df36a1e695fe0cc2;p=freeside.git

quiet warnings about CGI::param in list context
---

diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi
index d277e17b1..fb629021a 100755
--- a/httemplate/edit/process/cust_main.cgi
+++ b/httemplate/edit/process/cust_main.cgi
@@ -76,7 +76,7 @@ $cgi->param('duplicate_of_custnum') =~ /^(\d+)$/;
 my $duplicate_of = $1;
 
 # if this is enabled, enforce it
-if ( $conf->exists('agent-ship_address', $cgi->param('agentnum')) ) {
+if ( $conf->exists('agent-ship_address', scalar($cgi->param('agentnum'))) ) {
   my $agent = FS::agent->by_key($cgi->param('agentnum'));
   my $agent_cust_main = $agent->agent_cust_main;
   if ( $agent_cust_main ) {