+ my $status_statuscol = sub {
+ #conceptual false laziness with cust_main::status...
+ my $row = shift;
+
+ my $status = 'unknown';
+ if ( $self->num_pkgs == 0 ) {
+ $status = 'prospect';
+ } elsif ( $self->active_pkgs) > 0 ) {
+ $status = 'active';
+ } elsif ( $self->inactive_pkgs > 0 ) {
+ $status = 'inactive';
+ } elsif ( $self->suspended_pkgs > 0 ) {
+ $status = 'suspended';
+ } elsif ( $self->cancelled_pkgs > 0 ) {
+ $status = 'cancelled'
+ }
+
+ ( ucfirst($status), $FS::cust_main::statuscolor{$status} );
+ };
+
+