X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=751e8b69ba22f50d503e91ff746e40f7db8f092c;hp=fdbf0f272fc46ab706391cc74b300796f62fd202;hb=877a4eb85cb847bd314d6a9192fedb1dc35c5d02;hpb=6b74e2e7a98a11b8b4f62a10676ba8b37ee2ef4f diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index fdbf0f272..751e8b69b 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,5 +1,4 @@ <% include("/elements/header.html",'Agent Listing', menubar( - 'Main Menu' => $p, 'Agent Types' => $p. 'browse/agent_type.cgi', # 'Add new agent' => '../edit/agent.cgi' )) %> @@ -21,30 +20,34 @@ full offerings (via their type).

% my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = ''; -% - param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent Type + Master Customer + Commissions + Access Groups Invoice
Template Customers Customer
packages Reports Registration
codes Prepaid cards -% if ( $conf->config('ticket_system') ) { +% if ( $conf->config('ticket_system') ) { Ticketing % } - Payment Gateway Overrides +% if ( $conf->config('currencies') ) { + Currencies +% } + + Payment Gateway Override Configuration Overrides -% + %# Agent # %# Agent -% %foreach my $agent ( sort { % #$a->getfield('agentnum') <=> $b->getfield('agentnum') % $a->getfield('agent') cmp $b->getfield('agent') @@ -60,236 +63,219 @@ full offerings (via their type).

% } else { % $bgcolor = $bgcolor1; % } -% -% - +% ## +% # agentnum +% ## <% $agent->agentnum %> -% if ( dbdef->table('agent')->column('disabled') -% && !$cgi->param('showdisabled') ) { - - <% $agent->disabled ? 'DISABLED' : '' %> +% ## +% # disabled +% ## +% if ( ! $cgi->param('showdisabled') ) { + + <% $agent->disabled ? 'DISABLED' + : 'Active' + %> % } +% ## +% # agent +% ## <% $agent->agent %> +% ## +% # type +% ## <% $agent->agent_type->atype %> - - <% $agent->invoice_template || '(Default)' %> - - +% ## +% # master customer +% ## - - - - +% if ( $agent->agent_custnum ) { + <& /elements/small_custview.html, + $agent->agent_custnum, + scalar($conf->config('countrydefault')), + 1, #show balance + $p.'view/cust_main.cgi', + &> +% } + - +
- - <% my $num_prospect = $agent->num_prospect_cust_main %>  - - -% if ( $num_prospect ) { +% ## +% # commissions +% ## - -% } -prospects -% if ($num_prospect ) { - -% } + - -
- - +% #surprising amount of false laziness w/ edit/process/agent.cgi +% my @pkg_class = qsearch('pkg_class', { 'disabled'=>'' }); +% foreach my $pkg_class ( '', @pkg_class ) { +% my %agent_pkg_class = ( 'agentnum' => $agent->agentnum, +% 'classnum' => $pkg_class ? $pkg_class->classnum : '' +% ); +% my $agent_pkg_class = +% qsearchs( 'agent_pkg_class', \%agent_pkg_class ) +% || new FS::agent_pkg_class \%agent_pkg_class; +% my $param = 'classnum'. $agent_pkg_class{classnum}; - + + + - -% } -inactive -% if ( $num_inactive ) { - -% } +% } - - +
- - <% my $num_inactive = $agent->num_inactive_cust_main %>  - - -% if ( $num_inactive ) { +
<% $agent_pkg_class->commission_percent || 0 %>%<% $pkg_class ? $pkg_class->classname : mt('(no package class)') |h %> +
- - - - <% my $num_active = $agent->num_active_cust_main %>  - - + - -% if ( $num_active ) { +% ## +% # access groups +% ## + +% foreach my $access_group ( +% map $_->access_group, +% qsearch('access_groupagent', { 'agentnum' => $agent->agentnum }) +% ) { + <% $access_group->groupname |h %>
+% } + - -% } -active -% if ( $num_active ) { - -% } +% ## +% # invoice template +% ## + + <% $agent->invoice_template || '(Default)' %> + - - +% ## +% # customers +% ## - - - - <% my $num_susp = $agent->num_susp_cust_main %>  - - + + - +% my $num = 0; +% unless ( $disable_counts ) { + +% } + - - - - - +% } +
-% if ( $num_susp ) { +% my @cust_status = +% qw( prospect inactive ordered active suspended cancelled ); +% my %method = ( 'suspended' => 'susp', +% 'cancelled' => 'cancel' +% ); +% my %PL = ( 'prospect' => 'prospects', ); +% my %link = ( 'cancelled' => 'showcancelledcustomers=1&cancelled' ); +% my $statuscolor = FS::cust_main->statuscolors; +% +% foreach my $status ( @cust_status ) { +% my $meth = exists($method{$status}) ? $method{$status} : $status; +% $meth = 'num_'. $meth. '_cust_main'; +% my $link = exists($link{$status}) ? $link{$status} : $status; - +
+ + <% $num = $agent->$meth() %>  + + +% if ( $num || $disable_counts ) { +% + + "> % } -suspended -% if ( $num_susp ) { +<% exists($PL{$status}) ? $PL{$status} : $status %> +% if ($num || $disable_counts ) { % } -
- - <% my $num_cancel = $agent->num_cancel_cust_main %>  - - -% if ( $num_cancel ) { - - -% } -cancelled -% if ( $num_cancel ) { - -% } - -
+% ## +% # customer packages +% ## + - - - - - - - - - - - +% #my @pkg_status = FS::cust_pkg->statuses; +% my @pkg_status = ( 'on hold', 'one-time charge', 'not yet billed', +% qw( active suspended cancelled ) ); +% my %method = ( 'one-time charge' => 'inactive', +% 'suspended' => 'susp', +% 'cancelled' => 'cancel', +% ); +% my $statuscolor = FS::cust_pkg->statuscolors; +% +% foreach my $status ( @pkg_status ) { +% my $magic = exists($method{$status}) ? $method{$status} : $status; +% $magic =~ s/ /_/g; +% my $meth = 'num_'. $magic. '_cust_pkg'; +% ( my $label = $status ) =~ s/ / /g; - - +% my $num = 0; +% unless ( $disable_counts ) { + +% } - - - - - - +% }
- - <% 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 %>  - +
+ + <% $num = $agent->$meth() %>  + + -% if ( $num_susp_pkg ) { +% if ( $num || $disable_counts ) { - + % } -suspended -% if ( $num_susp_pkg ) { +<% $label %> +% if ( $num || $disable_counts ) { % }
- - <% my $num_cancel_pkg = $agent->num_cancel_cust_pkg %>  - - -% if ( $num_cancel_pkg ) { - - -% } -cancelled -% if ( $num_cancel_pkg ) { - -% } - -
+% ## +% # reports +% ## Package Churn
Payments
Credits
A/R Aging - +% ## +% # registration codes +% ## + <% my $num_reg_code = $agent->num_reg_code %> % if ( $num_reg_code ) { @@ -304,6 +290,10 @@ Unused
Generate codes +% ## +% # prepaid cards +% ## + <% my $num_prepay_credit = $agent->num_prepay_credit %> % if ( $num_prepay_credit ) { @@ -317,45 +307,55 @@ Unused
Generate cards -% if ( $conf->config('ticket_system') ) { - +% ## +% # ticketing +% ## +% if ( $conf->config('ticket_system') ) { -% if ( $agent->ticketing_queueid ) { - - Queue: <% $agent->ticketing_queueid %>: <% $agent->ticketing_queue %>
+% if ( $agent->ticketing_queueid ) { + Queue: <% $agent->ticketing_queueid %>: + <% $agent->ticketing_queue %> +
+% } + % } +% ## +% # currencies +% ## +% if ( $conf->config('currencies') ) { + + <% join('
', sort keys %{ $agent->agent_currency_hashref } ) %> % } +% ## +% # payment gateway override +% ## -% foreach my $override ( -% # sort { } want taxclass-full stuff first? and default cards (empty cardtype) -% qsearch('agent_payment_gateway', { 'agentnum' => $agent->agentnum } ) -% ) { -% - +% my $gw_override = qsearchs('agent_payment_gateway', { 'agentnum' => $agent->agentnum } ); +% if ($gw_override) { -% } - +% } else { +% }
- <% $override->cardtype || 'Default' %> to <% $override->payment_gateway->gateway_module %> (<% $override->payment_gateway->gateway_username %>) - <% $override->taxclass - ? ' for '. $override->taxclass. ' only' - : '' - %> - (delete) + <% $gw_override->payment_gateway->gateway_module %> (<% $gw_override->payment_gateway->gateway_username %>) + (delete)
(add override)
+% ## +% # configuration overrides +% ## + % foreach my $override ( @@ -365,14 +365,13 @@ Unused % } - +
- <% $override->name %> - (delete) + <% $override->name %> (delete)
(add override)(view/add/edit overrides)
@@ -382,6 +381,14 @@ Unused + + + <%init> @@ -398,5 +405,6 @@ if ( $cgi->param('showdisabled') } my $conf = new FS::Conf; +my $disable_counts = $conf->exists('agent-disable_counts');