X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fbrowse%2Fagent_type.cgi;h=7711dccf7bdc091711a19e23e75c5d2cffa875b0;hb=6cc3e679908ad79f0080960d30b1cab689326a07;hp=5473804e825bde1bb86594a0ef987ab90f86a23c;hpb=f7fd2a3e34da751cbc02bbf215e99c6dc89adc15;p=freeside.git
diff --git a/httemplate/browse/agent_type.cgi b/httemplate/browse/agent_type.cgi
index 5473804e8..7711dccf7 100755
--- a/httemplate/browse/agent_type.cgi
+++ b/httemplate/browse/agent_type.cgi
@@ -1,60 +1,63 @@
-
-<%= 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;
- #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 <
-