<% #Begin silliness # #use FS::UI::CGI; #use FS::UI::agent; # #$ui = new FS::UI::agent; #$ui->browse; #exit; #__END__ #End silliness print header('Agent Listing', menubar( 'Main Menu' => $p, 'Agent Types' => $p. 'browse/agent_type.cgi', # 'Add new agent' => '../edit/agent.cgi' )), <
END print &table(), < Agent Type Freq. Prog. END # 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 < Add a new agent Add a new agent type END %>