X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_location.pm;h=72cd8567e470a802a4408dec8df3441de560af8b;hb=56d10a0d13cc291eb5ee6197c35b10407794f89c;hp=23dbce9092c85a9934795fb6b0cdab3cd6e7d48d;hpb=f1e9e0cd3fb22e3e615142889f5f3df799841cc2;p=freeside.git

diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm
index 23dbce909..72cd8567e 100644
--- 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 $_";