[freeside-commits] branch master updated. cd1555c36924e21a9894b29071d76911ec277d9a

[Ivan]

The branch, master has been updated
       via  cd1555c36924e21a9894b29071d76911ec277d9a (commit)
      from  5ea451e310506e07a26887897c5051bb02ab62d1 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit cd1555c36924e21a9894b29071d76911ec277d9a
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Sun Oct 1 14:39:47 2017 -0700

    fix error w/current perl - can't call keys on a scalar hashref anymore, RT#77532

diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html
index 7197bbd..cb8d66e 100755
--- a/httemplate/search/cust_main.html
+++ b/httemplate/search/cust_main.html
@@ -68,16 +68,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
 ];
 
 ###

-----------------------------------------------------------------------

Summary of changes:
 httemplate/search/cust_main.html |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)