X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=46a92443331d1f8c4cf3d29d354bd42b0c40ee5c;hp=ebec068fafe5dd50059e1d1fecfadca4c7cf43ec;hb=eb4ff7f73c5d4bdf74a3472448b5a195598ff4cd;hpb=a4c96748eb6eab29a70f3a944c6520283a635c78 diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index ebec068fa..46a924433 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,66 +1,401 @@ - -<% - -#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( +<% 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. (unimp.) - Prog. (unimp.) - -END -# Agent # -# Agent - -foreach my $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 +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 )'; } + %> +% } + + +<% include('/elements/table-grid.html') %> +% my $bgcolor1 = '#eeeeee'; +% my $bgcolor2 = '#ffffff'; +% my $bgcolor = ''; +% + + + + param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent + Type + Invoice
Template + Customers + Customer
packages + Reports + Registration
codes + Prepaid cards +% if ( $conf->config('ticket_system') ) { + + Ticketing +% } + + Payment Gateway Overrides + Configuration Overrides + +% +%# 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; +% +% my $cust_pkg_link = $p. 'search/cust_pkg.cgi?agentnum='. $agent->agentnum; +% +% if ( $bgcolor eq $bgcolor1 ) { +% $bgcolor = $bgcolor2; +% } else { +% $bgcolor = $bgcolor1; +% } +% +% -} -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 %> + + + + <% $agent->invoice_template || '(Default)' %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + <% my $num_prospect = $agent->num_prospect_cust_main %>  + + +% if ( $num_prospect ) { + + +% } +prospects +% if ($num_prospect ) { + +% } + + +
+ + <% my $num_inactive = $agent->num_inactive_cust_main %>  + + +% if ( $num_inactive ) { + + +% } +inactive +% if ( $num_inactive ) { + +% } + +
+ + <% 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_inactive_pkg = $agent->num_inactive_cust_pkg %>  + + +% if ( $num_inactive_pkg ) { + + +% } +inactive +% if ( $num_inactive_pkg ) { + +% } + +
+ + <% 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)
+ + + + +% foreach my $override ( +% qsearch('conf', { 'agentnum' => $agent->agentnum } ) +% ) { +% + + + + +% } + + + + +
+ <% $override->name %> + (delete) +
(add override)
+ + - +% } + + -END +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my %search; +if ( $cgi->param('showdisabled') + || !dbdef->table('agent')->column('disabled') ) { + %search = (); +} else { + %search = ( 'disabled' => '' ); +} + +my $conf = new FS::Conf; -%> +