X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent_type.cgi;h=0c011ceedb898a4515836e41134bbcc39e33dcea;hb=02a46bc015742668a7f6d9336a190fec3141ff56;hp=5a84385896be31a13c5242af3c79b896f5952b52;hpb=0ebeec96313dd7edfca340f01f8fbbbac1f4aa1d;p=freeside.git
diff --git a/httemplate/browse/agent_type.cgi b/httemplate/browse/agent_type.cgi
index 5a8438589..0c011ceed 100755
--- a/httemplate/browse/agent_type.cgi
+++ b/httemplate/browse/agent_type.cgi
@@ -1,58 +1,65 @@
-
-<%= header("Agent Type Listing", menubar(
- 'Main Menu' => $p,
- 'Agents' => $p. 'browse/agent.cgi',
-)) %>
-Agent types define groups of packages that you can then assign to particular
-agents.
-Add a new agent type
-
-<%= table() %>
-
- Agent Type |
- Packages |
-
-
-<%
-foreach my $agent_type ( sort {
- $a->getfield('typenum') <=> $b->getfield('typenum')
-} qsearch('agent_type',{}) ) {
- my($hashref)=$agent_type->hashref;
- my(@type_pkgs)=qsearch('type_pkgs',{'typenum'=> $hashref->{typenum} });
- my($rowspan)=scalar(@type_pkgs);
- $rowspan = int($rowspan/2+0.5) ;
- print <
-
- $hashref->{typenum}
- |
- $hashref->{atype} |
-END
-
- my($type_pkgs);
- my($tdcount) = -1 ;
- foreach $type_pkgs ( @type_pkgs ) {
- my($pkgpart)=$type_pkgs->getfield('pkgpart');
- my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart });
- print qq!! if ($tdcount == 0) ;
- $tdcount = 0 if ($tdcount == -1) ;
- print qq!!,
- $part_pkg->getfield('pkg')," | ";
- $tdcount ++ ;
- if ($tdcount == 2)
- {
- print qq!
\n! ;
- $tdcount = 0 ;
- }
- }
-
- print "";
-}
-
-print <
-