$hashref->{pkg}
$hashref->{comment} |
- $hashref->{setup} |
+END
+ if ( $cgi->param('active') ) {
+ print " ";
+ print ''.
+ $num_active_cust_pkg{$hashref->{'pkgpart'}}.
+ qq! active !;
+
+ $suspended_sth->execute( $part_pkg->pkgpart ) or die $suspended_sth->errstr;
+ my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
+ print ''. $num_suspended.
+ qq! suspended !;
+
+ $canceled_sth->execute( $part_pkg->pkgpart ) or die $canceled_sth->errstr;
+ my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
+ print ''. $num_canceled.
+ qq! canceled!;
+
+
+ print ' | ';
+ }
+ print <$hashref->{freq}
- $hashref->{recur} |
+ $hashref->{plan} |
+ $plandata |
END
my($pkg_svc);
@@ -68,10 +150,16 @@ END
print "";
}
+$colspan = $cgi->param('showdisabled') ? 8 : 9;
print <Add new package |
+