From 978c718e870e1595b02a7a0c46f20d7ac65dedd4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 6 Oct 2003 11:20:56 +0000
Subject: fix linking to account list per access number

---
 httemplate/browse/svc_acct_pop.cgi | 2 +-
 httemplate/search/svc_acct.cgi     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'httemplate')

diff --git a/httemplate/browse/svc_acct_pop.cgi b/httemplate/browse/svc_acct_pop.cgi
index 80168728c..f77fe820b 100755
--- a/httemplate/browse/svc_acct_pop.cgi
+++ b/httemplate/browse/svc_acct_pop.cgi
@@ -48,7 +48,7 @@ foreach my $svc_acct_pop ( sort {
           <%= $svc_acct_pop->loc %></A></TD>
         <TD>
           <FONT COLOR="#00CC00"><B><%= $num_accounts %></B></FONT>
-            <A HREF="<%= $svc_acct_link %>&showcancelledcustomers=0">active</A>
+            <A HREF="<%= $svc_acct_link %>">active</A>
         </TD>
       </TR>
 <% } %>
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi
index f90acfabf..e179fc34a 100755
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -50,7 +50,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";
@@ -65,7 +65,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";
-- 
cgit v1.2.1