[freeside-commits] freeside/FS/FS cust_main.pm,1.470,1.471

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv23483/FS/FS

Modified Files:
	cust_main.pm 
Log Message:
customer classification, RT#6376

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.470
retrieving revision 1.471
diff -u -d -r1.470 -r1.471
--- cust_main.pm	29 Oct 2009 18:38:08 -0000	1.470
+++ cust_main.pm	29 Oct 2009 19:08:13 -0000	1.471
@@ -8328,6 +8328,21 @@
   }
 
   ###
+  # classnum
+  ###
+
+  my @classnum = grep /^(\d*)$/, @{ $params->{'classnum'} };
+  if ( @classnum ) {
+    push @where, '( '. join(' OR ', map {
+                                          $_ ? "cust_main.classnum = $_"
+                                             : "cust_main.classnum IS NULL"
+                                        }
+                                        @classnum
+                           ).
+                 ' )';
+  }
+
+  ###
   # payby
   ###