<% 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', # 'Add new agent' => '../edit/agent.cgi' )) %> 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() %> param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent Type Customers Reports Registration Codes Prepaid cards Freq. Prog. <% # Agent # # Agent foreach my $agent ( sort { #$a->getfield('agentnum') <=> $b->getfield('agentnum') $a->getfield('agent') cmp $b->getfield('agent') } qsearch('agent', \%search ) ) { my $cust_main_link = $p. 'search/cust_main.cgi?agentnum_on=1&'. 'agentnum='. $agent->agentnum; %> <%= $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 ) { %><% } %>

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 %> <% } %>