4 if ( $cgi->param('error') ) {
5 $agent = new FS::agent ( {
6 map { $_, scalar($cgi->param($_)) } fields('agent')
8 } elsif ( $cgi->keywords ) {
9 my($query) = $cgi->keywords;
11 $agent = qsearchs( 'agent', { 'agentnum' => $1 } );
13 $agent = new FS::agent {};
15 my $action = $agent->agentnum ? 'Edit' : 'Add';
16 my $hashref = $agent->hashref;
18 my $conf = new FS::Conf;
22 <%= header("$action Agent", menubar(
24 'View all agents' => $p. 'browse/agent.cgi',
27 <% if ( $cgi->param('error') ) { %>
28 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
31 <FORM ACTION="<%=popurl(1)%>process/agent.cgi" METHOD=POST>
32 <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $hashref->{agentnum} %>">
33 Agent #<%= $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)" %>
35 <%= &ntable("#cccccc", 2, '') %>
38 <TH ALIGN="right">Agent</TH>
39 <TD><INPUT TYPE="text" NAME="agent" SIZE=32 VALUE="<%= $hashref->{agent} %>"></TD>
43 <TH ALIGN="right">Agent type</TH>
44 <TD><SELECT NAME="typenum" SIZE=1>
46 <% foreach my $agent_type (qsearch('agent_type',{})) { %>
47 <OPTION VALUE="<%= $agent_type->typenum %>"<%= ( $hashref->{typenum} && ( $hashref->{typenum} == $agent_type->typenum ) ) ? ' SELECTED' : '' %>>
48 <%= $agent_type->getfield('typenum') %>: <%= $agent_type->getfield('atype') %>
55 <TD ALIGN="right">Disable</TD>
56 <TD><INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<%= $hashref->{disabled} eq 'Y' ? ' CHECKED' : '' %>></TD>
60 <TD ALIGN="right"><!--Frequency--></TD>
61 <TD><INPUT TYPE="hidden" NAME="freq" VALUE="<%= $hashref->{freq} %>"></TD>
65 <TD ALIGN="right"><!--Program--></TD>
66 <TD><INPUT TYPE="hidden" NAME="prog" VALUE="<%= $hashref->{prog} %>"></TD>
69 <% if ( $conf->config('ticket_system') ) {
70 my $default_queueid = $conf->config('ticket_system-default_queueid');
71 my $default_queue = FS::TicketSystem->queue($default_queueid);
72 $default_queue = "(default) $default_queueid: $default_queue"
74 my %queues = FS::TicketSystem->queues();
75 my @queueids = sort { $a <=> $b } keys %queues;
78 <TD ALIGN="right">Ticketing</TD>
80 <SELECT NAME="ticketing_queueid">
81 <OPTION VALUE=""><%= $default_queue %>
82 <% foreach my $queueid ( @queueids ) { %>
83 <OPTION VALUE="<%= $queueid %>" <%= $agent->ticketing_queueid == $queueid ? ' SELECTED' : '' %>><%= $queueid %>: <%= $queues{$queueid} %>
91 <TD ALIGN="right">Agent interface username</TD>
93 <INPUT TYPE="text" NAME="username" VALUE="<%= $hashref->{username} %>">
98 <TD ALIGN="right">Agent interface password</TD>
100 <INPUT TYPE="text" NAME="_password" VALUE="<%= $hashref->{_password} %>">
106 <BR><INPUT TYPE="submit" VALUE="<%= $hashref->{agentnum} ? "Apply changes" : "Add agent" %>">