httemplate/browse/agent.cgi

   1 <%
   2
   3 #Begin silliness
   4 #
   5 #use FS::UI::CGI;
   6 #use FS::UI::agent;
   7 #
   8 #$ui = new FS::UI::agent;
   9 #$ui->browse;
  10 #exit;
  11 #__END__
  12 #End silliness
  13
  14 print header('Agent Listing', menubar(
  15   'Main Menu'   => $p,
  16   'Agent Types' => $p. 'browse/agent_type.cgi',
  17 #  'Add new agent' => '../edit/agent.cgi'
  18 )), <<END;
  19 Agents are resellers of your service. Agents may be limited to a subset of your
  20 full offerings (via their type).<BR><BR>
  21 END
  22 print &table(), <<END;
  23       <TR>
  24         <TH COLSPAN=2>Agent</TH>
  25         <TH>Type</TH>
  26         <TH><FONT SIZE=-1>Freq. (unimp.)</FONT></TH>
  27         <TH><FONT SIZE=-1>Prog. (unimp.)</FONT></TH>
  28       </TR>
  29 END
  30 #        <TH><FONT SIZE=-1>Agent #</FONT></TH>
  31 #        <TH>Agent</TH>
  32
  33 foreach my $agent ( sort {
  34   $a->getfield('agentnum') <=> $b->getfield('agentnum')
  35 } qsearch('agent',{}) ) {
  36   my($hashref)=$agent->hashref;
  37   my($typenum)=$hashref->{typenum};
  38   my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
  39   my($atype)=$agent_type->getfield('atype');
  40   print <<END;
  41       <TR>
  42         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  43           $hashref->{agentnum}</A></TD>
  44         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  45           $hashref->{agent}</A></TD>
  46         <TD><A HREF="${p}edit/agent_type.cgi?$typenum">$atype</A></TD>
  47         <TD>$hashref->{freq}</TD>
  48         <TD>$hashref->{prog}</TD>
  49       </TR>
  50 END
  51
  52 }
  53
  54 print <<END;
  55       <TR>
  56         <TD COLSPAN=2><A HREF="${p}edit/agent.cgi"><I>Add a new agent</I></A></TD>
  57         <TD><A HREF="${p}edit/agent_type.cgi"><I>Add a new agent type</I></A></TD>
  58       </TR>
  59     </TABLE>
  60
  61   </BODY>
  62 </HTML>
  63 END
  64
  65 %>