<% # use strict; use vars qw( $ui $cgi $p $agent ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar table popurl); use FS::agent; use FS::agent_type; #Begin silliness # #use FS::UI::CGI; #use FS::UI::agent; # #$ui = new FS::UI::agent; #$ui->browse; #exit; #__END__ #End silliness $cgi = new CGI; &cgisuidsetup($cgi); $p = popurl(2); 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. (unimp.) Prog. (unimp.) END # Agent # # Agent foreach $agent ( sort { $a->getfield('agentnum') <=> $b->getfield('agentnum') } 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 %>