projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleanup noop cruft
[freeside.git]
/
httemplate
/
search
/
cust_main.html
diff --git
a/httemplate/search/cust_main.html
b/httemplate/search/cust_main.html
index
bb5eae7
..
8b39ea9
100755
(executable)
--- a/
httemplate/search/cust_main.html
+++ b/
httemplate/search/cust_main.html
@@
-33,9
+33,7
@@
<%init>
die "access denied"
<%init>
die "access denied"
- unless ( $FS::CurrentUser::CurrentUser->access_right('List customers') &&
- $FS::CurrentUser::CurrentUser->access_right('List packages')
- );
+ unless $FS::CurrentUser::CurrentUser->access_right('Advanced customer search');
my %search_hash = ();
my %search_hash = ();
@@
-43,11
+41,11
@@
my %search_hash = ();
#scalars
my @scalars = qw (
#scalars
my @scalars = qw (
- agentnum status address paydate_year paydate_month invoice_terms
- no_censustract with_geocode custbatch usernum
+ agentnum status address zip paydate_year paydate_month invoice_terms
+ no_censustract with_geocode with_email no_POST
+ custbatch usernum
cancelled_pkgs
cust_fields flattened_pkgs
cancelled_pkgs
cust_fields flattened_pkgs
- refnum
);
for my $param ( @scalars ) {
);
for my $param ( @scalars ) {
@@
-56,7
+54,7
@@
for my $param ( @scalars ) {
}
#lists
}
#lists
-for my $param (qw( classnum payby tagnum )) {
+for my $param (qw( classnum
refnum
payby tagnum )) {
$search_hash{$param} = [ $cgi->param($param) ];
}
$search_hash{$param} = [ $cgi->param($param) ];
}
@@
-64,7
+62,7
@@
for my $param (qw( classnum payby tagnum )) {
# parse dates
###
# parse dates
###
-foreach my $field (qw( signupdate birthdate spouse_birthdate )) {
+foreach my $field (qw( signupdate birthdate spouse_birthdate
anniversary_date
)) {
my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);
my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);