3 # agent.cgi: browse agent
5 # ivan@sisd.com 97-dec-12
7 # changes to allow pages to load from a relative location in the web tree.
8 # bmccane@maxbaud.net 98-mar-25
10 # changed 'type' to 'atype' because type is reserved word in Pg6.3
11 # bmccane@maxbaud.net 98-apr-3
13 # agent type was linking to wrong cgi ivan@sisd.com 98-jul-18
15 # lose background, FS::CGI ivan@sisd.com 98-sep-2
19 use FS::UID qw(cgisuidsetup swapuid);
20 use FS::Record qw(qsearch qsearchs);
21 use FS::CGI qw(header menubar);
23 my($cgi) = new CGI::Base;
28 SendHeaders(); # one guess.
29 print header('Agent Listing', menubar(
31 'Add new agent' => '../edit/agent.cgi'
34 Click on agent number to edit.
37 <TH><FONT SIZE=-1>Agent #</FONT></TH>
40 <TH><FONT SIZE=-1>Freq. (unimp.)</FONT></TH>
41 <TH><FONT SIZE=-1>Prog. (unimp.)</FONT></TH>
46 foreach $agent ( sort {
47 $a->getfield('agentnum') <=> $b->getfield('agentnum')
48 } qsearch('agent',{}) ) {
49 my($hashref)=$agent->hashref;
50 my($typenum)=$hashref->{typenum};
51 my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
52 my($atype)=$agent_type->getfield('atype');
55 <TD><A HREF="../edit/agent.cgi?$hashref->{agentnum}">
56 $hashref->{agentnum}</A></TD>
57 <TD>$hashref->{agent}</TD>
58 <TD><A HREF="../edit/agent_type.cgi?$typenum">$atype</A></TD>
59 <TD>$hashref->{freq}</TD>
60 <TD>$hashref->{prog}</TD>