From 99eea3e4cc49a10231e3f3bce4b9afb01913ce55 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 29 Oct 2009 19:08:13 +0000
Subject: customer classification, RT#6376

---
 FS/FS/cust_main.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index fdcd80178..e192ef98f 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -8327,6 +8327,21 @@ sub search_sql {
 
   }
 
+  ###
+  # classnum
+  ###
+
+  my @classnum = grep /^(\d*)$/, @{ $params->{'classnum'} };
+  if ( @classnum ) {
+    push @where, '( '. join(' OR ', map {
+                                          $_ ? "cust_main.classnum = $_"
+                                             : "cust_main.classnum IS NULL"
+                                        }
+                                        @classnum
+                           ).
+                 ' )';
+  }
+
   ###
   # payby
   ###
-- 
cgit v1.2.1