X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=c5c992704be6c08acb91096e9a4088a7eaad57b5;hp=bb0ee24022825311d87ad852a9f8b55d45bd9b77;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=1e4aa8069f25e1b4101da20bb9e0d3f60357ea52 diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index bb0ee2402..c5c992704 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,82 +1,146 @@ <% -# - -use strict; -use vars qw( $ui $cgi $p $agent ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearch qsearchs); -use FS::CGI qw(header menubar table popurl); -use FS::agent; -use FS::agent_type; - -#Begin silliness -# -#use FS::UI::CGI; -#use FS::UI::agent; -# -#$ui = new FS::UI::agent; -#$ui->browse; -#exit; -#__END__ -#End silliness - -$cgi = new CGI; - -&cgisuidsetup($cgi); - -$p = popurl(2); - -print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar( + + 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).

-END -print &table(), < - Agent - Type - Freq. (unimp.) - Prog. (unimp.) - -END +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 $agent ( sort { - $a->getfield('agentnum') <=> $b->getfield('agentnum') -} 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 < - - $hashref->{agentnum} - - $hashref->{agent} - $atype - $hashref->{freq} - $hashref->{prog} - -END +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; -} +%> -print < - Add a new agent - Add a new agent type + + <%= $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 %> + - +<% } %> + + -END - -%>