<% #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 < END %>