X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fbrowse%2Fagent_type.cgi;h=f07a6515b6d228d7343453b331293aabe4c36d7a;hb=9bdca2fe23584918219395b62effbb9ef0fc5f1c;hp=2e1bdad42446a71c4c87f2f7276ce1bbf865590f;hpb=c1bb4ddb71147d0571bd301a6d8c452fdf0e1bc9;p=freeside.git
diff --git a/httemplate/browse/agent_type.cgi b/httemplate/browse/agent_type.cgi
index 2e1bdad42..f07a6515b 100755
--- a/httemplate/browse/agent_type.cgi
+++ b/httemplate/browse/agent_type.cgi
@@ -1,60 +1,63 @@
-
-<%= include("/elements/header.html","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;
- #more efficient to do this with SQL...
- my @type_pkgs = grep { $_->part_pkg and ! $_->part_pkg->disabled }
- 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 <
-