diff options
| author | Mark Wells <mark@freeside.biz> | 2013-06-13 10:49:10 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-06-13 10:49:10 -0700 |
| commit | e5002a24fee7e476cbb3d8d916c8d87ddfc12093 (patch) | |
| tree | 9527179c6306c333fed7e1e2ed971f8651400c1a /FS/FS/cust_location.pm | |
| parent | 5de72308d1c22ca4fc0d7eccf5588c7a39af9286 (diff) | |
allow invalid locations to be disabled anyway, #23446
Diffstat (limited to 'FS/FS/cust_location.pm')
| -rw-r--r-- | FS/FS/cust_location.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm index a834859..b98ade1 100644 --- a/FS/FS/cust_location.pm +++ b/FS/FS/cust_location.pm @@ -257,12 +257,12 @@ and replace methods. =cut -#some false laziness w/cust_main, but since it should eventually lose these -#fields anyway... sub check { my $self = shift; my $conf = new FS::Conf; + return '' if $self->disabled; # so that disabling locations never fails + my $error = $self->ut_numbern('locationnum') || $self->ut_foreign_keyn('prospectnum', 'prospect_main', 'prospectnum') |