6 use FS::Record qw( qsearchs );
10 @ISA = qw ( FS::UI::Base );
12 sub db_table { 'agent' };
14 sub db_name { 'Agent' };
16 sub db_description { <<END;
17 Agents are resellers of your service. Agents may be limited to a subset of your
18 full offerings (via their type).
39 my ( $agentnum, $record ) = @_;
40 my $agent = $record->agent;
44 'arg' => [ $agentnum ],
45 'text' => "$agentnum: $agent",
51 my $agent_type = qsearchs( 'agent_type', { 'typenum' => $typenum } );
52 my $atype = $agent_type->atype;
54 'table' => 'agent_type',
56 'arg' => [ $typenum ],
57 'text' => "$typenum: $atype"