X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=fdbf0f272fc46ab706391cc74b300796f62fd202;hb=22c7daa1fd079e3ec9dee4da241f83e174132e4e;hp=001e6ba5051aa2b216e4bd9d242bc37d7cb22020;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index 001e6ba50..fdbf0f272 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,17 +1,3 @@ -% -% -% 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', @@ -41,10 +27,11 @@ full offerings (via their type).

param('showdisabled') || !dbdef->table('agent')->column('disabled') ) ? 2 : 3 %>>Agent Type + Invoice
Template
Customers Customer
packages
Reports - Registration codes + Registration
codes
Prepaid cards % if ( $conf->config('ticket_system') ) { @@ -52,8 +39,7 @@ full offerings (via their type).

% } Payment Gateway Overrides - Freq. - Prog. + Configuration Overrides % %# Agent # @@ -79,18 +65,29 @@ full offerings (via their type).

- - <% $agent->agentnum %> -% if ( dbdef->table('agent')->column('disabled') -% && !$cgi->param('showdisabled') ) { - <% $agent->disabled ? 'DISABLED' : '' %> -% } + + <% $agent->agentnum %> + +% if ( dbdef->table('agent')->column('disabled') +% && !$cgi->param('showdisabled') ) { + + <% $agent->disabled ? 'DISABLED' : '' %> + +% } - - <% $agent->agent %> - <% $agent->agent_type->atype %> + + <% $agent->agent %> + + + + <% $agent->agent_type->atype %> + + + + <% $agent->invoice_template || '(Default)' %> + @@ -285,9 +282,10 @@ cancelled @@ -332,8 +330,8 @@ Unused % } -
- Payments + Package Churn +
Payments
Credits -
A/R Aging +
A/R Aging
- + - + % } @@ -370,3 +384,19 @@ Unused
+ % foreach my $override ( % # sort { } want taxclass-full stuff first? and default cards (empty cardtype) % qsearch('agent_payment_gateway', { 'agentnum' => $agent->agentnum } ) @@ -347,7 +345,7 @@ Unused ? ' for '. $override->taxclass. ' only' : '' %> - (delete) + (delete) % } @@ -358,10 +356,26 @@ Unused
+ +% foreach my $override ( +% qsearch('conf', { 'agentnum' => $agent->agentnum } ) +% ) { +% + + + + +% } + + + + +
+ <% $override->name %> + (delete) +
(add override)
+
+<%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; + +