diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2016-09-02 22:02:03 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-09-03 01:05:31 -0500 |
| commit | 466562976bbe959958cfef042dee8919ce404555 (patch) | |
| tree | c72b8428adde8a49476f5d7886cbf2913a534a60 /FS/FS/cust_main.pm | |
| parent | 196d38fd1142a48d2bd1f9497317541f93ecd692 (diff) | |
72225: OQH - Mandatory Fields on Customer Creation
Diffstat (limited to 'FS/FS/cust_main.pm')
| -rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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); |