<% 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; %> <%= header("$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 <% if ( dbdef->table('agent')->column('disabled') ) { %> Disable {disabled} eq 'Y' ? ' CHECKED' : '' %>> <% } %> <% if ( dbdef->table('agent')->column('username') ) { %> Agent interface username Agent interface password <% } %>
">