diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-10-01 14:39:47 -0700 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2018-06-13 12:42:03 -0400 |
| commit | c1916023bb43405fd2c7b213fcc63b9b5ebfef2c (patch) | |
| tree | 2030255e0d612bceb60a6aac0435e2ecc111d62f | |
| parent | 98d614173c61436e5637b61bc93ce0fa2e1ecc4e (diff) | |
fix error w/current perl - can't call keys on a scalar hashref anymore, RT#77532
| -rwxr-xr-x | httemplate/search/cust_main.html | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index fa5b43cf6..30162506f 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -72,16 +72,20 @@ for my $param (qw( classnum refnum pkg_classnum )) { $search_hash{$param} = [ $cgi->param($param) ]; } +my $params = $cgi->Vars; + #contacts $search_hash{'contacts'} = { - map { $_ => $cgi->param($_), } grep { /^(contacts_*)/ && $cgi->param($_) } keys $cgi->Vars + map { $_ => $cgi->param($_), } + grep { /^(contacts_*)/ && $cgi->param($_) } + keys %$params }; #tags -my $params = $cgi->Vars; $search_hash{'tagnum'} = [ map { /^tagnum(\d+)/ && $1 } - grep { /^tagnum(\d+)/ && $cgi->param($_) } keys %$params + grep { /^tagnum(\d+)/ && $cgi->param($_) } + keys %$params ]; ### |