httemplate/edit/agent.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my $agent;
   5 if ( $cgi->param('error') ) {
   6   $agent = new FS::agent ( {
   7     map { $_, scalar($cgi->param($_)) } fields('agent')
   8   } );
   9 } elsif ( $cgi->keywords ) {
  10   my($query) = $cgi->keywords;
  11   $query =~ /^(\d+)$/;
  12   $agent = qsearchs( 'agent', { 'agentnum' => $1 } );
  13 } else { #adding
  14   $agent = new FS::agent {};
  15 }
  16 my $action = $agent->agentnum ? 'Edit' : 'Add';
  17 my $hashref = $agent->hashref;
  18
  19 %>
  20
  21 <%= header("$action Agent", menubar(
  22   'Main Menu' => $p,
  23   'View all agents' => $p. 'browse/agent.cgi',
  24 )) %>
  25
  26 <% if ( $cgi->param('error') ) { %>
  27 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
  28 <% } %>
  29
  30 <FORM ACTION="<%=popurl(1)%>process/agent.cgi" METHOD=POST>
  31 <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $hashref->{agentnum} %>">
  32 Agent #<%= $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)" %>
  33
  34 <%= &ntable("#cccccc", 2, '') %>
  35 <TR>
  36   <TH ALIGN="right">Agent</TH>
  37   <TD><INPUT TYPE="text" NAME="agent" SIZE=32 VALUE="<%= $hashref->{agent} %>"></TD>
  38 </TR>
  39 <TR>
  40   <TH ALIGN="right">Agent type</TH>
  41   <TD><SELECT NAME="typenum" SIZE=1>
  42
  43 <% foreach my $agent_type (qsearch('agent_type',{})) { %>
  44   <OPTION VALUE="<%= $agent_type->typenum %>"<%= ( $hashref->{typenum} && ( $hashref->{typenum} == $agent_type->typenum ) ) ? ' SELECTED' : '' %>>
  45   <%= $agent_type->getfield('typenum') %>: <%= $agent_type->getfield('atype') %>
  46 <% } %>
  47
  48 </SELECT></TD>
  49 </TR>
  50 <% if ( dbdef->table('agent')->column('disabled') ) { %>
  51   <TR>
  52     <TD ALIGN="right">Disable</TD>
  53     <TD><INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<%= $hashref->{disabled} eq 'Y' ? ' CHECKED' : '' %>></TD>
  54   </TR>
  55 <% } %>
  56 <TR>
  57   <TD ALIGN="right"><!--Frequency--></TD>
  58   <TD><INPUT TYPE="hidden" NAME="freq" VALUE="<%= $hashref->{freq} %>"></TD>
  59 </TR>
  60 <TR>
  61   <TD ALIGN="right"><!--Program--></TD>
  62   <TD><INPUT TYPE="hidden" NAME="prog" VALUE="<%= $hashref->{prog} %>"></TD>
  63 </TR>
  64 <% if ( dbdef->table('agent')->column('username') ) { %>
  65   <TR>
  66     <TD ALIGN="right">Agent interface username</TD>
  67     <TD><INPUT TYPE="text" NAME="username" VALUE="<%= $hashref->{username} %>"></TD>
  68   </TR>
  69   <TR>
  70     <TD ALIGN="right">Agent interface password</TD>
  71     <TD><INPUT TYPE="text" NAME="_password" VALUE="<%= $hashref->{_password} %>"></TD>
  72   </TR>
  73 <% } %>
  74 </TABLE>
  75
  76 <BR><INPUT TYPE="submit" VALUE="<%= $hashref->{agentnum} ? "Apply changes" : "Add agent" %>">
  77     </FORM>
  78   </BODY>
  79 </HTML>