projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
482bceb
)
fix error w/current perl - can't call keys on a scalar hashref anymore, RT#77532
author
Ivan Kohler
<ivan@freeside.biz>
Sun, 1 Oct 2017 21:39:47 +0000
(14:39 -0700)
committer
Christopher Burger
<burgerc@freeside.biz>
Tue, 20 Nov 2018 21:46:14 +0000
(16:46 -0500)
Conflicts:
httemplate/search/cust_main.html
httemplate/search/cust_main.html
patch
|
blob
|
history
diff --git
a/httemplate/search/cust_main.html
b/httemplate/search/cust_main.html
index
0d80b6d
..
d4b4faf
100755
(executable)
--- a/
httemplate/search/cust_main.html
+++ b/
httemplate/search/cust_main.html
@@
-72,9
+72,13
@@
for my $param (qw( classnum refnum payby tagnum 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
};
###