From 3c635a0ac2bf4c3f78044cd5e510e2d287f50389 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Fri, 29 Jan 2016 14:43:45 -0800 Subject: [PATCH] allow editing prospect location fields in place, #39982 --- FS/FS/cust_location.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm index c14082702..aad25a4a7 100644 --- a/FS/FS/cust_location.pm +++ b/FS/FS/cust_location.pm @@ -281,10 +281,15 @@ sub replace { warn "Warning: passed city to replace when cust_main-no_city_in_address is configured" if $conf->exists('cust_main-no_city_in_address') && $self->get('city'); - # the following fields are immutable - foreach (qw(address1 address2 city state zip country)) { - if ( $self->$_ ne $old->$_ ) { - return "can't change cust_location field $_"; + # the following fields are immutable if this is a customer location. if + # it's a prospect location, then there are no active packages, no billing + # history, no taxes, and in general no reason to keep the old location + # around. + if ( $self->custnum ) { + foreach (qw(address1 address2 city state zip country)) { + if ( $self->$_ ne $old->$_ ) { + return "can't change cust_location field $_"; + } } } -- 2.11.0