projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5ea451e
)
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
Ivan Kohler
<ivan@freeside.biz>
Sun, 1 Oct 2017 21:39:47 +0000
(14:39 -0700)
httemplate/search/cust_main.html
patch
|
blob
|
history
diff --git
a/httemplate/search/cust_main.html
b/httemplate/search/cust_main.html
index
7197bbd
..
cb8d66e
100755
(executable)
--- 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) ];
}
$search_hash{$param} = [ $cgi->param($param) ];
}
+my $params = $cgi->Vars;
+
#contacts
$search_hash{'contacts'} = {
#contacts
$search_hash{'contacts'} = {
- map { $_ => $cgi->param($_), } grep { /^(contacts_*)/ && $cgi->param($_) } keys $cgi->Vars
+ map { $_ => $cgi->param($_), }
+ grep { /^(contacts_*)/ && $cgi->param($_) }
+ keys %$params
};
#tags
};
#tags
-my $params = $cgi->Vars;
$search_hash{'tagnum'} = [
map { /^tagnum(\d+)/ && $1 }
$search_hash{'tagnum'} = [
map { /^tagnum(\d+)/ && $1 }
- grep { /^tagnum(\d+)/ && $cgi->param($_) } keys %$params
+ grep { /^tagnum(\d+)/ && $cgi->param($_) }
+ keys %$params
];
###
];
###