diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2016-09-02 22:02:03 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-09-02 22:02:03 -0500 |
| commit | b92e0eafc315618a40e5de2f7b214e7a125d29fe (patch) | |
| tree | e7d13c4b8256ed1f8688d3daabdf4d211f627bbe /FS | |
| parent | dccee148cb8194b077980343db879377f34e6b5a (diff) | |
72225: OQH - Mandatory Fields on Customer Creation
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Conf.pm | 7 | ||||
| -rw-r--r-- | FS/FS/cust_main.pm | 4 |
2 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index cf6e90960..84acf02d4 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -4146,6 +4146,13 @@ and customer address. Include units.', }, { + 'key' => 'cust_main-require_classnum', + 'section' => 'customer_fields', + 'description' => 'Customer class is required: require customer class for all customer records.', + 'type' => 'checkbox', + }, + + { 'key' => 'cust_main-check_unique', 'section' => 'customer_fields', 'description' => 'Warn before creating a customer record where these fields duplicate another customer.', 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); |