From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 15 Apr 2020 18:38:15 +0000 (-0700)
Subject: CGI::param called in list context
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=80a11e51231d20ae1007df1b09a29c98df74fcdf

CGI::param called in list context
---

diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 706435af1..b2b4b35f4 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -326,7 +326,7 @@ if ( $cgi->param('error') ) {
     if $conf->exists('default_agentnum');
 
   $cust_main->otaker( &getotaker );
-  $cust_main->referral_custnum( $cgi->param('referral_custnum') );
+  $cust_main->referral_custnum( scalar($cgi->param('referral_custnum')) );
   @invoicing_list = ();
   push @invoicing_list, 'POST'
     unless $conf->exists('disablepostalinvoicedefault');