X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=fd360ab3c43fc35c5d3319a0ef339a9b7e06dc33;hb=6ed5d51b3a72e2935dd5d084c9e24567150b03ca;hp=79f6c3dcfca1ee1af0fa7fc334f2156486139e87;hpb=ea1e0de8c51ea562308c20416e1f3fcb719a8847;p=freeside.git
diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi
index 79f6c3dcf..fd360ab3c 100755
--- a/httemplate/browse/agent.cgi
+++ b/httemplate/browse/agent.cgi
@@ -1,32 +1,14 @@
-
-
<%
- #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;
+ my %search;
+ if ( $cgi->param('showdisabled')
+ || !dbdef->table('agent')->column('disabled') ) {
+ %search = ();
+ } else {
+ %search = ( 'disabled' => '' );
+ }
%>
-
<%= header('Agent Listing', menubar(
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
@@ -36,11 +18,24 @@ Agents are resellers of your service. Agents may be limited to a subset of your
full offerings (via their type).
Add a new agent
+<% if ( dbdef->table('agent')->column('disabled') ) { %>
+ <%= $cgi->param('showdisabled')
+ ? do { $cgi->param('showdisabled', 0);
+ '( hide disabled agents )'; }
+ : do { $cgi->param('showdisabled', 1);
+ '( show disabled agents )'; }
+ %>
+<% } %>
+
<%= table() %>
- Agent |
+ param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent |
Type |
Customers |
+ Customer packages |
+ Reports |
+ Registration codes |
+ Prepaid cards |
Freq. |
Prog. |
@@ -51,32 +46,137 @@ full offerings (via their type).
foreach my $agent ( sort {
#$a->getfield('agentnum') <=> $b->getfield('agentnum')
$a->getfield('agent') cmp $b->getfield('agent')
-} qsearch('agent',{}) ) {
-
- $ncancelled_sth->execute($agent->agentnum) or die $ncancelled_sth->errstr;
- my $num_ncancelled = $ncancelled_sth->fetchrow_arrayref->[0];
+} qsearch('agent', \%search ) ) {
- $total_sth->execute($agent->agentnum) or die $total_sth->errstr;
- my $num_total = $total_sth->fetchrow_arrayref->[0];
+ my $cust_main_link = $p. 'search/cust_main.cgi?agentnum_on=1&'.
+ 'agentnum='. $agent->agentnum;
- my $num_cancelled = $num_total - $num_ncancelled;
+ my $cust_pkg_link = $p. 'search/cust_pkg.cgi?agentnum='. $agent->agentnum;
%>
<%= $agent->agentnum %> |
+<% if ( dbdef->table('agent')->column('disabled')
+ && !$cgi->param('showdisabled') ) { %>
+ <%= $agent->disabled ? 'DISABLED' : '' %> |
+<% } %>
+
<%= $agent->agent %> |
<%= $agent->agent_type->atype %> |
+
+
+
+ |
+
- <%= $num_ncancelled %>
- active
- <%= $num_cancelled %>
- cancelled
+
|
+
+
+ Payments
+ Credits
+ A/R Aging
+
+
+ |
+
+
+ <%= 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 %> |
+
<% } %>