X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=fd360ab3c43fc35c5d3319a0ef339a9b7e06dc33;hb=6ed5d51b3a72e2935dd5d084c9e24567150b03ca;hp=af32887205aba75c53a3b22eab79743d68ef5ee5;hpb=3913f6d159b5b8110061690b7c97642c27abf7eb;p=freeside.git
diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi
index af3288720..fd360ab3c 100755
--- a/httemplate/browse/agent.cgi
+++ b/httemplate/browse/agent.cgi
@@ -1,5 +1,3 @@
-
-
<%
my %search;
@@ -10,31 +8,7 @@
%search = ( 'disabled' => '' );
}
- #bad false laziness with search/cust_main.cgi (also needs fixing up for
- #old mysql)
- my $ncancelled = "
- 0 < ( SELECT COUNT(*) FROM cust_pkg
- WHERE cust_pkg.custnum = cust_main.custnum
- AND ( cust_pkg.cancel IS NULL
- OR cust_pkg.cancel = 0
- )
- )
- OR 0 = ( SELECT COUNT(*) FROM cust_pkg
- WHERE cust_pkg.custnum = cust_main.custnum
- )
- ";
-
- my $ncancelled_sth = dbh->prepare("SELECT COUNT(*) FROM cust_main
- WHERE agentnum = ?
- AND ( $ncancelled ) ")
- or die dbh->errstr;
-
- my $total_sth = dbh->prepare("SELECT COUNT(*) FROM cust_main
- WHERE agentnum = ? ")
- or die dbh->errstr;
-
%>
-
<%= header('Agent Listing', menubar(
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
@@ -58,6 +32,10 @@ full offerings (via their type).
param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent |
Type |
Customers |
+ Customer packages |
+ Reports |
+ Registration codes |
+ Prepaid cards |
Freq. |
Prog. |
@@ -70,17 +48,11 @@ foreach my $agent ( sort {
$a->getfield('agent') cmp $b->getfield('agent')
} qsearch('agent', \%search ) ) {
- $ncancelled_sth->execute($agent->agentnum) or die $ncancelled_sth->errstr;
- my $num_ncancelled = $ncancelled_sth->fetchrow_arrayref->[0];
-
- $total_sth->execute($agent->agentnum) or die $total_sth->errstr;
- my $num_total = $total_sth->fetchrow_arrayref->[0];
-
- my $num_cancelled = $num_total - $num_ncancelled;
-
my $cust_main_link = $p. 'search/cust_main.cgi?agentnum_on=1&'.
'agentnum='. $agent->agentnum;
+ my $cust_pkg_link = $p. 'search/cust_pkg.cgi?agentnum='. $agent->agentnum;
+
%>
@@ -94,34 +66,117 @@ foreach my $agent ( sort {
<%= $agent->agent %> |
<%= $agent->agent_type->atype %> |
+
+
+
+ |
+
+
+ |
+
+
+ Payments
+ Credits
+ A/R Aging
+
-
- <%= my $num_prospect = $agent->num_prospect_cust_main %>
-
- <% if ( $num_prospect ) { %>
- <% } %>prospects<% if ($num_prospect ) { %><% } %>
-
-
- <%= my $num_active = $agent->num_active_cust_main %>
-
- <% if ( $num_active ) { %>
- <% } %>active<% if ( $num_active ) { %><% } %>
-
-
- <%= my $num_susp = $agent->num_susp_cust_main %>
-
- <% if ( $num_susp ) { %>
- <% } %>suspended<% if ( $num_susp ) { %><% } %>
-
-
- <%= my $num_cancel = $agent->num_cancel_cust_main %>
-
- <% if ( $num_cancel ) { %>
- <% } %>cancelled<% if ( $num_cancel ) { %><% } %>
|
+
+
+ <%= my $num_reg_code = $agent->num_reg_code %>
+ <% if ( $num_reg_code ) { %>
+ <% } %>Unused<% if ( $num_reg_code ) { %><% } %>
+ Generate codes
+ |
+
+
+ <%= my $num_prepay_credit = $agent->num_prepay_credit %>
+ <% if ( $num_prepay_credit ) { %>
+ <% } %>Unused<% if ( $num_prepay_credit ) { %><% } %>
+ Generate cards
+ |
+
<%= $agent->freq %> |
<%= $agent->prog %> |
+
<% } %>