httemplate/browse/agent.cgi

   1 <!-- mason kludge -->
   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
  15 <%= header('Agent Listing', menubar(
  16   'Main Menu'   => $p,
  17   'Agent Types' => $p. 'browse/agent_type.cgi',
  18 #  'Add new agent' => '../edit/agent.cgi'
  19 )) %>
  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 <A HREF="<%= $p %>edit/agent.cgi"><I>Add a new agent</I></A><BR><BR>
  23
  24 <%= table() %>
  25 <TR>
  26   <TH COLSPAN=2>Agent</TH>
  27   <TH>Type</TH>
  28   <TH><FONT SIZE=-1>Freq.</FONT></TH>
  29   <TH><FONT SIZE=-1>Prog.</FONT></TH>
  30 </TR>
  31 <%
  32 #        <TH><FONT SIZE=-1>Agent #</FONT></TH>
  33 #        <TH>Agent</TH>
  34
  35 foreach my $agent ( sort {
  36   #$a->getfield('agentnum') <=> $b->getfield('agentnum')
  37   $a->getfield('agent') cmp $b->getfield('agent')
  38 } qsearch('agent',{}) ) {
  39   my($hashref)=$agent->hashref;
  40   my($typenum)=$hashref->{typenum};
  41   my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
  42   my($atype)=$agent_type->getfield('atype');
  43   print <<END;
  44       <TR>
  45         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  46           $hashref->{agentnum}</A></TD>
  47         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  48           $hashref->{agent}</A></TD>
  49         <TD><A HREF="${p}edit/agent_type.cgi?$typenum">$atype</A></TD>
  50         <TD>$hashref->{freq}</TD>
  51         <TD>$hashref->{prog}</TD>
  52       </TR>
  53 END
  54
  55 }
  56
  57 print <<END;
  58     </TABLE>
  59   </BODY>
  60 </HTML>
  61 END
  62
  63 %>