httemplate/browse/agent.cgi

   1 <!-- mason kludge -->
   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   $a->getfield('agent') cmp $b->getfield('agent')
  37 } qsearch('agent',{}) ) {
  38   my($hashref)=$agent->hashref;
  39   my($typenum)=$hashref->{typenum};
  40   my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum});
  41   my($atype)=$agent_type->getfield('atype');
  42   print <<END;
  43       <TR>
  44         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  45           $hashref->{agentnum}</A></TD>
  46         <TD><A HREF="${p}edit/agent.cgi?$hashref->{agentnum}">
  47           $hashref->{agent}</A></TD>
  48         <TD><A HREF="${p}edit/agent_type.cgi?$typenum">$atype</A></TD>
  49         <TD>$hashref->{freq}</TD>
  50         <TD>$hashref->{prog}</TD>
  51       </TR>
  52 END
  53
  54 }
  55
  56 print <<END;
  57       <TR>
  58         <TD COLSPAN=2><A HREF="${p}edit/agent.cgi"><I>Add a new agent</I></A></TD>
  59         <TD><A HREF="${p}edit/agent_type.cgi"><I>Add a new agent type</I></A></TD>
  60       </TR>
  61     </TABLE>
  62
  63   </BODY>
  64 </HTML>
  65 END
  66
  67 %>