477 report: detect errors and fix them more easily, #32499, from #24047

[freeside.git] / FS / FS / cust_location.pm

diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm
index 23dbce9..72cd856 100644 (file)
--- a/FS/FS/cust_location.pm
+++ b/FS/FS/cust_location.pm
@@ -267,6 +267,10 @@ sub replace {
   my $old = shift;
   $old ||= $self->replace_old;
   # the following fields are immutable
+  if ($self->get('unlock')) {
+    # well, mostly immutable
+    warn "WARNING: locationnum ".$old->locationnum." MODIFIED IN PLACE\n";
+  } else {
   foreach (qw(address1 address2 city state zip country)) {
     if ( $self->$_ ne $old->$_ ) {
       return "can't change cust_location field $_";