X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=17cc8bd4010d415681efbb079893ad0d9d20c1a2;hb=c738a3c4923774b64960aa87fa58bd0751487edb;hp=246500941d366e0c1516309ffd40445daa667c74;hpb=a63b2729682586d8860290576e9307629424dbe0;p=freeside.git diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index 246500941..17cc8bd40 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,67 +1,226 @@ - <% -#Begin silliness -# -#use FS::UI::CGI; -#use FS::UI::agent; -# -#$ui = new FS::UI::agent; -#$ui->browse; -#exit; -#__END__ -#End silliness - -print header('Agent Listing', menubar( + my %search; + if ( $cgi->param('showdisabled') + || !dbdef->table('agent')->column('disabled') ) { + %search = (); + } else { + %search = ( 'disabled' => '' ); + } + + my $conf = new FS::Conf; + +%> +<%= include("/elements/header.html",'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. - Prog. - -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 + Customer
packages + Reports + Registration codes + Prepaid cards + <% if ( $conf->config('ticket_system') ) { %> + Ticketing + <% } %> + Payment Gateway Overrides + Freq. + Prog. + +<% # Agent # # Agent 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 < - - $hashref->{agentnum} - - $hashref->{agent} - $atype - $hashref->{freq} - $hashref->{prog} - -END +} qsearch('agent', \%search ) ) { + + 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; + +%> -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 ) { %><% } %> +
+ + + + + + + + + + + + + + + + +
+ + <%= my $num_active_pkg = $agent->num_active_cust_pkg %>  + + + <% if ( $num_active_pkg ) { %> + <% } %>active<% if ( $num_active_pkg ) { %><% } %> +
+ + <%= my $num_susp_pkg = $agent->num_susp_cust_pkg %>  + + + <% if ( $num_susp_pkg ) { %> + <% } %>suspended<% if ( $num_susp_pkg ) { %><% } %> +
+ + <%= my $num_cancel_pkg = $agent->num_cancel_cust_pkg %>  + + + <% if ( $num_cancel_pkg ) { %> + <% } %>cancelled<% if ( $num_cancel_pkg ) { %><% } %> +
+ + + + 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 + + + <% if ( $conf->config('ticket_system') ) { %> + + + <% if ( $agent->ticketing_queueid ) { %> + Queue: <%= $agent->ticketing_queueid %>: <%= $agent->ticketing_queue %>
+ <% } %> + + + <% } %> + + + + <% foreach my $override ( + # sort { } want taxclass-full stuff first? and default cards (empty cardtype) + qsearch('agent_payment_gateway', { 'agentnum' => $agent->agentnum } ) + ) { + %> + + + + <% } %> + + + +
+ <%= $override->cardtype || 'Default' %> to <%= $override->payment_gateway->gateway_module %> (<%= $override->payment_gateway->gateway_username %>) + <%= $override->taxclass + ? ' for '. $override->taxclass. ' only' + : '' + %> + (delete) +
(add override)
+ + + <%= $agent->freq %> + <%= $agent->prog %> + - +<% } %> + + -END - -%>