<% 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'; my $hashref = $agent_type->hashref; print header("$action Agent Type", menubar( 'Main Menu' => "$p", 'View all agent types' => "${p}browse/agent_type.cgi", )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print '
', qq!!, "Agent Type #", $hashref->{typenum} ? $hashref->{typenum} : "(NEW)"; print <
Agent Type

Select which packages agents of this type may sell to customers
END foreach my $part_pkg ( qsearch('part_pkg',{ 'disabled' => '' }) ) { print qq!
$agent_type->getfield('typenum'), 'pkgpart' => $part_pkg->getfield('pkgpart'), }) ? 'CHECKED ' : '', qq!VALUE="ON"> !, qq!', $part_pkg->pkgpart. ": ". $part_pkg->getfield('pkg'), '', ; } print qq!

!; print < END %>