From 466562976bbe959958cfef042dee8919ce404555 Mon Sep 17 00:00:00 2001
From: Jonathan Prykop <jonathan@freeside.biz>
Date: Fri, 2 Sep 2016 22:02:03 -0500
Subject: 72225: OQH - Mandatory Fields on Customer Creation

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

(limited to 'FS/FS/cust_main.pm')

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 25b3d08..e2332aa 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2100,6 +2100,10 @@ sub check {
     && ! $self->custnum
     && $conf->exists('cust_main-require_locale');
 
+  return "Please select a customer class"
+    if ! $self->classnum
+    && $conf->exists('cust_main-require_classnum');
+
   foreach my $flag (qw( tax spool_cdr squelch_cdr archived email_csv_cdr )) {
     $self->$flag() =~ /^(Y?)$/ or return "Illegal $flag: ". $self->$flag();
     $self->$flag($1);
-- 
cgit v1.1