% % %my($agent_type); %if ( $cgi->param('error') ) { % $agent_type = new FS::agent_type ( { % map { $_, scalar($cgi->param($_)) } fields('agent') % } ); %} elsif ( $cgi->keywords ) { #editing % my( $query ) = $cgi->keywords; % $query =~ /^(\d+)$/; % $agent_type=qsearchs('agent_type',{'typenum'=>$1}); %} else { #adding % $agent_type = new FS::agent_type {}; %} %my $action = $agent_type->typenum ? 'Edit' : 'Add'; % % <% include("/elements/header.html","$action Agent Type", menubar( 'Main Menu' => "$p", 'View all agent types' => "${p}browse/agent_type.cgi", )) %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %> % }
<% include('/elements/footer.html') %>