allow invalid locations to be disabled anyway, #23446

diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm
index a834859..b98ade1 100644 (file)
--- a/FS/FS/cust_location.pm
+++ b/FS/FS/cust_location.pm
@@ -257,12 +257,12 @@ and replace methods.
 
 =cut
 
 
 =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;
 
 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')
   my $error = 
     $self->ut_numbern('locationnum')
     || $self->ut_foreign_keyn('prospectnum', 'prospect_main', 'prospectnum')