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;
+
+%>
-
- $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 %>
+ active
+ |
-END
-
-}
+<% } %>
-print <
- Add new POP |
-