<%
#Begin silliness
#
#use FS::UI::CGI;
#use FS::UI::agent;
#
#$ui = new FS::UI::agent;
#$ui->browse;
#exit;
#__END__
#End silliness
%>
<%= header('Agent Listing', menubar(
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
# 'Add new agent' => '../edit/agent.cgi'
)) %>
Agents are resellers of your service. Agents may be limited to a subset of your
full offerings (via their type).
Add a new agent
<%= table() %>
| Agent |
Type |
Freq. |
Prog. |
<%
# Agent # |
# Agent |
foreach my $agent ( sort {
#$a->getfield('agentnum') <=> $b->getfield('agentnum')
$a->getfield('agent') cmp $b->getfield('agent')
} qsearch('agent',{}) ) {
my($hashref)=$agent->hashref;
my($typenum)=$hashref->{typenum};
my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
my($atype)=$agent_type->getfield('atype');
print <
$hashref->{agentnum} |
$hashref->{agent} |
$atype |
$hashref->{freq} |
$hashref->{prog} |
END
}
print <