diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 546649cec..5b25b712f 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4419,13 +4419,13 @@ Returns a hex triplet color string for this customer's status. =cut use vars qw(%statuscolor); -%statuscolor = ( +tie %statuscolor, 'Tie::IxHash', 'prospect' => '7e0079', #'000000', #black? naw, purple 'active' => '00CC00', #green 'inactive' => '0000CC', #blue 'suspended' => 'FF9900', #yellow 'cancelled' => 'FF0000', #red -); +; sub statuscolor { shift->cust_statuscolor(@_); } @@ -4440,6 +4440,20 @@ sub cust_statuscolor { =over 4 +=item statuses + +Class method that returns the list of possible status strings for customers +(see L<the status method|/status>). For example: + + @statuses = FS::cust_main->statuses(); + +=cut + +sub statuses { + #my $self = shift; #could be class... + keys %statuscolor; +} + =item prospect_sql Returns an SQL expression identifying prospective cust_main records (customers |