httemplate/browse/agent.cgi

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