From 1fc8addc56f8daf12397da568eb1ac1b27fd3984 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 18 Aug 2021 11:11:29 -0700 Subject: quiet warnings about CGI::param in list context --- httemplate/edit/process/cust_main.cgi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'httemplate/edit/process/cust_main.cgi') diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index baacd5e7e..18017fdb9 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -44,7 +44,7 @@ my $error = ''; $cgi->param('tax','') unless defined $cgi->param('tax'); -$cgi->param('refnum', (split(/:/, ($cgi->param('refnum'))[0] ))[0] ); +$cgi->param('refnum', (split(/:/, ($cgi->multi_param('refnum'))[0] ))[0] ); #my @invoicing_list = split( /\s*\,\s*/, $cgi->param('invoicing_list') ); #push @invoicing_list, 'POST' if $cgi->param('invoicing_list_POST'); -- cgit v1.2.1