-
- $hashref->{pkgpart}
- |
- $hashref->{pkg} |
- $hashref->{comment} |
- $hashref->{setup} |
- $hashref->{freq} |
- $hashref->{recur} |
-END
+ ><%= $part_pkg->pkgpart %> |
+
+<% unless ( $cgi->param('showdisabled') ) { %>
+ >
+ <% if ( $part_pkg->disabled ) { %>
+ DISABLED
+ <% } %>
+ |
+<% } %>
+
+ ><%= $part_pkg->pkg %> |
+ ><%= $part_pkg->comment %> |
+
+<% if ( $cgi->param('active') ) { %>
+ >
+ <%= $num_active_cust_pkg{$part_pkg->pkgpart} %> active
+
+ <% $suspended_sth->execute( $part_pkg->pkgpart )
+ or die $suspended_sth->errstr;
+ my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
+ %>
+ <%= $num_suspended %> suspended
+
+ <% $canceled_sth->execute( $part_pkg->pkgpart )
+ or die $canceled_sth->errstr;
+ my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
+ %>
+ <%= $num_canceled %> canceled
+ |
+<% } %>
+ ><%= $part_pkg->freq_pretty %> |
+
+<% if ( $taxclasses ) { %>
+ ><%= $part_pkg->taxclass || ' ' %> |
+<% } %>
+
+ ><%= $part_pkg->plan %> |
+ ><%= $plandata %> |
+
+<%
my($pkg_svc);
my($n)="";
foreach $pkg_svc ( @pkg_svc ) {
@@ -61,17 +152,20 @@ END
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!!,
$part_svc->getfield('svc')," | ",
- $pkg_svc->getfield('quantity')," |
\n";
+ $pkg_svc->getfield('quantity'),"";
+ if ( dbdef->table('pkg_svc')->column('primary_svc') ) {
+ print '