<% # use strict; use vars qw ( $cgi $agent $action $hashref $p $agent_type ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::CGI qw(header menubar popurl ntable); use FS::Record qw(qsearch qsearchs fields); use FS::agent; use FS::agent_type; $cgi = new CGI; &cgisuidsetup($cgi); 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 {}; } $action = $agent->agentnum ? 'Edit' : 'Add'; $hashref = $agent->hashref; $p = popurl(2); print header("$action Agent", menubar( 'Main Menu' => $p, 'View all agents' => $p. 'browse/agent.cgi', )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print '

', qq!!, "Agent #", $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)"; print &ntable("#cccccc", 2, ''), < Agent Agent type END foreach $agent_type (qsearch('agent_type',{})) { print "{typenum} && ( $hashref->{typenum} == $agent_type->typenum ); print ">", $agent_type->getfield('typenum'), ": ", $agent_type->getfield('atype'),"\n"; } print < Frequency (unimplemented) Program (unimplemented) END print qq!
!; print < END %>