projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agent browse shows # of active accounts & links to appropriate account search
[freeside.git]
/
httemplate
/
search
/
svc_acct.cgi
diff --git
a/httemplate/search/svc_acct.cgi
b/httemplate/search/svc_acct.cgi
index
dcf2612
..
0954bf6
100755
(executable)
--- a/
httemplate/search/svc_acct.cgi
+++ b/
httemplate/search/svc_acct.cgi
@@
-30,7
+30,7
@@
if ( $query =~ /^UN_(.*)$/ ) {
WHERE 0 <
( SELECT count(*) FROM cust_svc
WHERE cust_svc.svcnum = svc_acct.svcnum
WHERE 0 <
( SELECT count(*) FROM cust_svc
WHERE cust_svc.svcnum = svc_acct.svcnum
- AND ( pkgnum IS NULL OR pkgnum = 0
OR pkgnum = $empty
)
+ AND ( pkgnum IS NULL OR pkgnum = 0 )
)
";
}
)
";
}
@@
-48,12
+48,23
@@
if ( $query eq 'svcnum' ) {
$sortby=\*uid_sort;
$orderby = ( $unlinked ? 'AND' : 'WHERE' ).
" ${tblname}uid IS NOT NULL ORDER BY ${tblname}uid";
$sortby=\*uid_sort;
$orderby = ( $unlinked ? 'AND' : 'WHERE' ).
" ${tblname}uid IS NOT NULL ORDER BY ${tblname}uid";
+} elsif ( $query =~ /popnum=(\d+)/ ) {
+ my $popnum = $1;
+ $unlinked .= ( $unlinked ? 'AND' : 'WHERE' ).
+ " popnum = $popnum";
+ $sortby=\*username_sort;
+ $orderby = "ORDER BY ${tblname}username";
} else {
$sortby=\*uid_sort;
@svc_acct = @{&usernamesearch};
}
} else {
$sortby=\*uid_sort;
@svc_acct = @{&usernamesearch};
}
-if ( $query eq 'svcnum' || $query eq 'username' || $query eq 'uid' ) {
+
+if ( $query eq 'svcnum'
+ || $query eq 'username'
+ || $query eq 'uid'
+ || $query eq 'popnum'
+ ) {
my $statement = "SELECT COUNT(*) FROM svc_acct $unlinked";
my $sth = dbh->prepare($statement)
my $statement = "SELECT COUNT(*) FROM svc_acct $unlinked";
my $sth = dbh->prepare($statement)
@@
-145,7
+156,7
@@
END
$domain = "<A HREF=\"${p}view/svc_domain.cgi?". $svc_domain->svcnum.
"\">". $svc_domain->domain. "</A>";
} else {
$domain = "<A HREF=\"${p}view/svc_domain.cgi?". $svc_domain->svcnum.
"\">". $svc_domain->domain. "</A>";
} else {
- die "No svc_domain.svcnum record for svc_acct.domsvc: ".
'
+ die "No svc_domain.svcnum record for svc_acct.domsvc: ".
$svc_acct->domsvc;
}
my($cust_pkg,$cust_main);
$svc_acct->domsvc;
}
my($cust_pkg,$cust_main);