X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=2f05af69ac7e5fdc8fd8187c8e4eef153f880e65;hp=7bbed1bc21c9b1448797a2b8a8d7b896dca6dcbf;hb=b92e0eafc315618a40e5de2f7b214e7a125d29fe;hpb=dccee148cb8194b077980343db879377f34e6b5a diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 7bbed1bc2..2f05af69a 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1869,6 +1869,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);