X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=104a0c49cff770743a91257528b6ac9fa61f0a6e;hp=521f773412f0fa1f686f6981fed1080881d52ea3;hb=f839709351aee1f9488e9a26496adc564aa5b8e5;hpb=708b7bd0a10a5bf6be81ce21d946e05e046a00ed

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 521f77341..104a0c49c 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -3727,6 +3727,24 @@ sub statuses {
   keys %statuscolor;
 }
 
+=item cust_status_sql
+
+Returns an SQL fragment to determine the status of a cust_main record, as a 
+string.
+
+=cut
+
+sub cust_status_sql {
+  my $sql = 'CASE';
+  for my $status ( FS::cust_main->statuses() ) {
+    my $method = $status.'_sql';
+    $sql .= ' WHEN ('.FS::cust_main->$method.") THEN '$status'";
+  }
+  $sql .= ' END';
+  return $sql;
+}
+
+
 =item prospect_sql
 
 Returns an SQL expression identifying prospective cust_main records (customers