<% 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; %> <%= include("/elements/header.html","$action Agent", menubar( 'Main Menu' => $p, 'View all agents' => $p. 'browse/agent.cgi', )) %> <% if ( $cgi->param('error') ) { %> Error: <%= $cgi->param('error') %> <% } %>

Agent #<%= $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)" %> <%= &ntable("#cccccc", 2, '') %> Agent Agent type <% foreach my $agent_type (qsearch('agent_type',{})) { %> {typenum} && ( $hashref->{typenum} == $agent_type->typenum ) ) ? ' SELECTED' : '' %>> <%= $agent_type->getfield('typenum') %>: <%= $agent_type->getfield('atype') %> <% } %> 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; %> Ticketing queue <%= $default_queue %> <% foreach my $queueid ( @queueids ) { %> ticketing_queueid == $queueid ? ' SELECTED' : '' %>><%= $queueid %>: <%= $queues{$queueid} %> <% } %> <% } %> Agent interface username Agent interface password
">