summaryrefslogtreecommitdiff
path: root/httemplate/search/svc_acct.cgi
diff options
context:
space:
mode:
authorivan <ivan>2003-10-06 11:20:58 +0000
committerivan <ivan>2003-10-06 11:20:58 +0000
commit83178acdc79de25f98c3e7eee9a4de1a17eaf9f4 (patch)
tree07839a0971d3805356b657776cb4561d548df382 /httemplate/search/svc_acct.cgi
parent71eb3c33da045ffdc963b5ad8111af8a8bef878d (diff)
fix linking to account list per access number
Diffstat (limited to 'httemplate/search/svc_acct.cgi')
-rwxr-xr-xhttemplate/search/svc_acct.cgi4
1 files changed, 2 insertions, 2 deletions
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi
index 0954bf652..bbcac30b5 100755
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -48,7 +48,7 @@ if ( $query eq 'svcnum' ) {
$sortby=\*uid_sort;
$orderby = ( $unlinked ? 'AND' : 'WHERE' ).
" ${tblname}uid IS NOT NULL ORDER BY ${tblname}uid";
-} elsif ( $query =~ /popnum=(\d+)/ ) {
+} elsif ( $query =~ /^popnum=(\d+)$/ ) {
my $popnum = $1;
$unlinked .= ( $unlinked ? 'AND' : 'WHERE' ).
" popnum = $popnum";
@@ -63,7 +63,7 @@ if ( $query eq 'svcnum' ) {
if ( $query eq 'svcnum'
|| $query eq 'username'
|| $query eq 'uid'
- || $query eq 'popnum'
+ || $query =~ /^popnum=(\d+)$/ ) {
) {
my $statement = "SELECT COUNT(*) FROM svc_acct $unlinked";