summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2022-04-27 12:18:46 -0700
committerIvan Kohler <ivan@freeside.biz>2022-04-27 12:18:46 -0700
commit0c1bbe3f62b483feb841b8b958dc468e1c457c45 (patch)
tree3f95b35de10b09a32fcdef41e74df072b5a74f7a
parent32e9b8146661a5bc6b340b09dacc8a70813555f6 (diff)
quiet warnings about CGI::param in list context
-rwxr-xr-xhttemplate/edit/process/cust_main.cgi2
1 files changed, 1 insertions, 1 deletions
diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi
index 18017fd..d4578d2 100755
--- a/httemplate/edit/process/cust_main.cgi
+++ b/httemplate/edit/process/cust_main.cgi
@@ -62,7 +62,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 ) {