X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fagent.cgi;h=6707d66a4ba91d01a9199c0458937bccb3da2102;hp=f8d0edc1a4d3e9b9668ce63b74fe1f3b1b45a550;hb=c5e31619e5a3071506cff19578e9e377753a96f4;hpb=4b4b3ca9cb0b7336293b759549b78fc903a7d8c8 diff --git a/httemplate/edit/agent.cgi b/httemplate/edit/agent.cgi index f8d0edc1a..6707d66a4 100755 --- a/httemplate/edit/agent.cgi +++ b/httemplate/edit/agent.cgi @@ -1,109 +1,163 @@ -<% - -my $agent; -if ( $cgi->param('error') ) { - $agent = new FS::agent ( { - map { $_, scalar($cgi->param($_)) } fields('agent') - } ); -} elsif ( $cgi->keywords ) { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $agent = qsearchs( 'agent', { 'agentnum' => $1 } ); -} else { #adding - $agent = new FS::agent {}; -} -my $action = $agent->agentnum ? 'Edit' : 'Add'; -my $hashref = $agent->hashref; - -my $conf = new FS::Conf; - -%> - -<%= header("$action Agent", menubar( - 'Main Menu' => $p, +<% include("/elements/header.html","$action Agent", menubar( 'View all agents' => $p. 'browse/agent.cgi', )) %> -<% if ( $cgi->param('error') ) { %> -Error: <%= $cgi->param('error') %> -<% } %> +<% include('/elements/error.html') %> + +
- - -Agent #<%= $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)" %> + -<%= &ntable("#cccccc", 2, '') %> + +Agent #<% $agent->agentnum ? $agent->agentnum : "(NEW)" %> - - Agent - - +<% &ntable("#cccccc", 2, '') %> - Agent type - + Agent + - + - Disable - {disabled} eq 'Y' ? ' CHECKED' : '' %>> - + Agent type + + + + + - - + Master customer + + <% include('/elements/search-cust_main.html', + 'field_name' => 'agent_custnum', + 'curr_value' => $agent->agent_custnum, + 'find_button' => 1, + ) + %> + - + +% if ( $conf->exists('selfservice-agent_login') ) { + + + Username + + + + + Password + + + +% } else { + + + + +% } + - - + Disable + disabled eq 'Y' ? ' CHECKED' : '' %>> - <% if ( $conf->config('ticket_system') ) { - my $default_queueid = $conf->config('ticket_system-default_queueid'); - my $default_queue = FS::TicketSystem->queue($default_queueid); - $default_queue = "(default) $default_queueid: $default_queue" - if $default_queueid; - my %queues = FS::TicketSystem->queues(); - my @queueids = sort { $a <=> $b } keys %queues; +% if ( $conf->exists('agent-invoice_template') ) { + + <% include('/elements/tr-select-invoice_template.html', + 'label' => 'Invoice template', + 'field' => 'invoice_template', + 'curr_value' => $agent->invoice_template, + ) %> + +% } else { + + + +% } + +% if ( $conf->config('ticket_system') ) { +% my $default_queueid = $conf->config('ticket_system-default_queueid'); +% my $default_queue = FS::TicketSystem->queue($default_queueid); +% $default_queue = "(default) $default_queueid: $default_queue" +% if $default_queueid; +% my %queues = FS::TicketSystem->queues(); +% my @queueids = sort { $a <=> $b } keys %queues; +% + - Ticketing + Ticketing queue - <% } %> - - - Agent interface username - - - - - +% } + - Agent interface password - - + Access Groups + <% include('/elements/checkboxes-table.html', + 'source_obj' => $agent, + 'link_table' => 'access_groupagent', + 'target_table' => 'access_group', + 'name_col' => 'groupname', + 'target_link' => $p. 'edit/access_group.html?', + ) + %> -
"> -
- - +
+"> + + + +<% include('/elements/footer.html') %> + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my $agent; +if ( $cgi->param('error') ) { + $agent = new FS::agent ( { + map { $_, scalar($cgi->param($_)) } fields('agent') + } ); +} elsif ( $cgi->keywords ) { + my($query) = $cgi->keywords; + $query =~ /^(\d+)$/; + $agent = qsearchs( 'agent', { 'agentnum' => $1 } ); +} else { #adding + $agent = new FS::agent {}; +} +my $action = $agent->agentnum ? 'Edit' : 'Add'; + +my $conf = new FS::Conf; + +