$hashref->{pkg}
$hashref->{comment} |
+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->{plan} |
$plandata |
@@ -91,9 +152,14 @@ END
$colspan = $cgi->param('showdisabled') ? 8 : 9;
print <Add a new package definition |
+