-
- $hashref->{pkgpart}
- |
+ $hashref->{pkgpart} |
+END
+
+ unless ( $cgi->param('showdisabled') ) {
+ print "";
+ print "DISABLED" if $hashref->{disabled};
+ print ' | ';
+ }
+
+ print <$hashref->{pkg}
$hashref->{comment} |
- $hashref->{setup} |
+END
+ if ( $cgi->param('active') ) {
+ print " ";
+ print ''.
+ $num_active_cust_pkg{$hashref->{'pkgpart'}}.
+ qq! active!;
+ # suspended/cancelled
+ print ' | ';
+ }
+ print <$hashref->{freq}
- $hashref->{recur} |
+ $hashref->{plan} |
+ $plandata |
END
my($pkg_svc);
@@ -68,10 +126,16 @@ END
print "";
}
+$colspan = $cgi->param('showdisabled') ? 8 : 9;
print <Add new package |
+