diff options
| author | Mark Wells <mark@freeside.biz> | 2013-06-13 10:48:38 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-06-13 10:48:38 -0700 |
| commit | 994fb235ccacdda0db4d37320c9842d0cba149d4 (patch) | |
| tree | b4591919c6cd809fffac7698ca4941a5420ea3a1 | |
| parent | 363d2534c06c8c5640138af815ea1d8ac9ee621f (diff) | |
allow invalid locations to be disabled anyway, #23446
| -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 a834859ba..b98ade157 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') |