$p )) %>
+Points of Presence
+Add new Access Number
+<% table() %>
|
City |
@@ -62,40 +16,56 @@ print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
Area code |
Exchange |
Local |
+ Accounts |
-END
+%
+%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 $svc_acct_pop ( sort {
- $a->getfield('popnum') <=> $b->getfield('popnum')
-} 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 <
- Add new POP |
-