httemplate/browse/agent_type.cgi

   1 <%
   2 #<!-- $Id: agent_type.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $p $agent_type );
   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 popurl table);
  11 use FS::agent_type;
  12 use FS::type_pkgs;
  13 use FS::part_pkg;
  14
  15 $cgi = new CGI;
  16
  17 &cgisuidsetup($cgi);
  18
  19 $p = popurl(2);
  20 print $cgi->header( '-expires' => 'now' ), header("Agent Type Listing", menubar(
  21   'Main Menu' => $p,
  22 )), "Agent types define groups of packages that you can then assign to".
  23     " particular agents.<BR><BR>", &table(), <<END;
  24       <TR>
  25         <TH COLSPAN=2>Agent Type</TH>
  26         <TH COLSPAN="2">Packages</TH>
  27       </TR>
  28 END
  29
  30 foreach $agent_type ( sort {
  31   $a->getfield('typenum') <=> $b->getfield('typenum')
  32 } qsearch('agent_type',{}) ) {
  33   my($hashref)=$agent_type->hashref;
  34   my(@type_pkgs)=qsearch('type_pkgs',{'typenum'=> $hashref->{typenum} });
  35   my($rowspan)=scalar(@type_pkgs);
  36   $rowspan = int($rowspan/2+0.5) ;
  37   print <<END;
  38       <TR>
  39         <TD ROWSPAN=$rowspan><A HREF="${p}edit/agent_type.cgi?$hashref->{typenum}">
  40           $hashref->{typenum}
  41         </A></TD>
  42         <TD ROWSPAN=$rowspan><A HREF="${p}edit/agent_type.cgi?$hashref->{typenum}">$hashref->{atype}</A></TD>
  43 END
  44
  45   my($type_pkgs);
  46   my($tdcount) = -1 ;
  47   foreach $type_pkgs ( @type_pkgs ) {
  48     my($pkgpart)=$type_pkgs->getfield('pkgpart');
  49     my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart });
  50     print qq!<TR>! if ($tdcount == 0) ;
  51     $tdcount = 0 if ($tdcount == -1) ;
  52     print qq!<TD><A HREF="${p}edit/part_pkg.cgi?$pkgpart">!,
  53           $part_pkg->getfield('pkg'),"</A></TD>";
  54     $tdcount ++ ;
  55     if ($tdcount == 2)
  56     {
  57         print qq!</TR>\n! ;
  58         $tdcount = 0 ;
  59     }
  60   }
  61
  62   print "</TR>";
  63 }
  64
  65 print <<END;
  66   <TR><TD COLSPAN=2><I><A HREF="${p}edit/agent_type.cgi">Add a new agent type</A></I></TD></TR>
  67     </TABLE>
  68   </BODY>
  69 </HTML>
  70 END
  71
  72 %>