httemplate/browse/agent.cgi

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