<% 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') %> <% } %>

Agent Type #<%= $agent_type->typenum || "(NEW)" %>

Agent Type

Select which packages agents of this type may sell to customers
<% foreach my $part_pkg ( qsearch({ 'table' => 'part_pkg', 'hashref' => { 'disabled' => '' }, 'select' => 'part_pkg.*', 'addl_from' => 'LEFT JOIN type_pkgs USING ( pkgpart )', 'extra_sql' => ( $agent_type->typenum ? 'OR typenum = '. $agent_type->typenum : '' ), }) ) { %>
$agent_type->typenum, 'pkgpart' => $part_pkg->pkgpart, }) ? 'CHECKED ' : '' %> VALUE="ON"> <%= $part_pkg->pkgpart %>: <%= $part_pkg->pkg %> - <%= $part_pkg->comment %> <%= $part_pkg->disabled =~ /^Y/i ? ' (DISABLED)' : '' %> <% } %>

">