X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=f389342972feb4619e9754b9cdd78fb730ee57b3;hb=1238858779262e56f45aef69d33b54052407c7f7;hp=cff111ca42b1aa46f4216278b1a59c52b8d906da;hpb=6d02e527490b2f0cf080f7b519443caeecd76357;p=freeside.git
diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi
index cff111ca4..f38934297 100755
--- a/httemplate/browse/agent.cgi
+++ b/httemplate/browse/agent.cgi
@@ -1,15 +1,15 @@
+
<%
-#Begin silliness
-#
-#use FS::UI::CGI;
-#use FS::UI::agent;
-#
-#$ui = new FS::UI::agent;
-#$ui->browse;
-#exit;
-#__END__
-#End silliness
+
+ my %search;
+ if ( $cgi->param('showdisabled')
+ || !dbdef->table('agent')->column('disabled') ) {
+ %search = ();
+ } else {
+ %search = ( 'disabled' => '' );
+ }
+
%>
<%= header('Agent Listing', menubar(
@@ -21,10 +21,20 @@ 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 |
Freq. |
Prog. |
@@ -35,29 +45,56 @@ full offerings (via their type).
foreach my $agent ( sort {
#$a->getfield('agentnum') <=> $b->getfield('agentnum')
$a->getfield('agent') cmp $b->getfield('agent')
-} qsearch('agent',{}) ) {
- my($hashref)=$agent->hashref;
- my($typenum)=$hashref->{typenum};
- my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
- my($atype)=$agent_type->getfield('atype');
- print <agentnum;
+
+%>
+
-
- $hashref->{agentnum} |
-
- $hashref->{agent} |
- $atype |
- $hashref->{freq} |
- $hashref->{prog} |
+
+ <%= $agent->agentnum %> |
+<% if ( dbdef->table('agent')->column('disabled')
+ && !$cgi->param('showdisabled') ) { %>
+ <%= $agent->disabled ? 'DISABLED' : '' %> |
+<% } %>
+
+
+ <%= $agent->agent %> |
+ <%= $agent->agent_type->atype %> |
+
+
+
+ <%= 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 ) { %><% } %>
+ |
+ <%= $agent->freq %> |
+ <%= $agent->prog %> |
-END
-}
+<% } %>
-print <