X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fsvc_acct_pop.cgi;h=949bfa790c066c629fd7573d706e3ff297b98c62;hb=c8cccb4a92adceb943c635fe62dad0d034462ce0;hp=e890f07bf8f698e4c1c64772e302a7d7e97455ac;hpb=6d02e527490b2f0cf080f7b519443caeecd76357;p=freeside.git
diff --git a/httemplate/browse/svc_acct_pop.cgi b/httemplate/browse/svc_acct_pop.cgi
index e890f07bf..949bfa790 100755
--- a/httemplate/browse/svc_acct_pop.cgi
+++ b/httemplate/browse/svc_acct_pop.cgi
@@ -1,12 +1,14 @@
-<%
+%
+% my $accounts_sth = dbh->prepare("SELECT COUNT(*) FROM svc_acct
+% WHERE popnum = ? ")
+% or die dbh->errstr;
+%
-print header('Access Number Listing', menubar(
- 'Main Menu' => $p,
-)) %>
+<% include("/elements/header.html",'Access Number Listing', menubar( 'Main Menu' => $p )) %>
Points of Presence
-Add new Access Number
-<%= table() %>
+Add new Access Number
+<% table() %>
|
City |
@@ -14,40 +16,56 @@ Points of Presence
Area code |
Exchange |
Local |
+ Accounts |
+%
+%foreach my $svc_acct_pop ( sort {
+% #$a->getfield('popnum') <=> $b->getfield('popnum')
+% $a->state cmp $b->state || $a->city cmp $b->city
+% || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc
+%} qsearch('svc_acct_pop',{}) ) {
+%
+% my $svc_acct_pop_link = $p . 'edit/svc_acct_pop.cgi?'. $svc_acct_pop->popnum;
+%
+% $accounts_sth->execute($svc_acct_pop->popnum) or die $accounts_sth->errstr;
+% my $num_accounts = $accounts_sth->fetchrow_arrayref->[0];
+%
+% my $svc_acct_link = $p. 'search/svc_acct.cgi?popnum='. $svc_acct_pop->popnum;
+%
+%
-<%
-foreach my $svc_acct_pop ( sort {
- #$a->getfield('popnum') <=> $b->getfield('popnum')
- $a->state cmp $b->state || $a->city cmp $b->city
- || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc
-} qsearch('svc_acct_pop',{}) ) {
- my($hashref)=$svc_acct_pop->hashref;
- print <
-
- $hashref->{popnum} |
-
- $hashref->{city} |
-
- $hashref->{state} |
-
- $hashref->{ac} |
-
- $hashref->{exch} |
-
- $hashref->{loc} |
+
+ <% $svc_acct_pop->popnum %> |
+
+ <% $svc_acct_pop->city %> |
+
+ <% $svc_acct_pop->state %> |
+
+ <% $svc_acct_pop->ac %> |
+
+ <% $svc_acct_pop->exch %> |
+
+ <% $svc_acct_pop->loc %> |
+
+ <% $num_accounts %>
+% if ( $num_accounts ) {
+
+% }
+
+ active
+% if ( $num_accounts ) {
+
+% }
+
+ |
-END
+% }
-}
-print <