X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=15bbdc372629d24dffc94ca685d038008ab45007;hb=387c96b0d8f224f3ade27bed9348f37b432bbb8a;hp=8a043ae148111fdf5a5bef7b590d703e1ce25416;hpb=a8e4b1744a6bbd2e1509b58e73b1d52751563880;p=freeside.git diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 8a043ae14..15bbdc372 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1403,6 +1403,17 @@ sub replace { return "You are not permitted to create complimentary accounts."; } + if ( $old->get('geocode') && $old->get('geocode') eq $self->get('geocode') + && $conf->exists('enable_taxproducts') + ) + { + my $pre = ($conf->exists('tax-ship_address') && $self->ship_zip) + ? 'ship_' : ''; + $self->set('geocode', '') + if $old->get($pre.'zip') ne $self->get($pre.'zip') + && length($self->get($pre.'zip')) >= 10; + } + local($ignore_expired_card) = 1 if $old->payby =~ /^(CARD|DCRD)$/ && $self->payby =~ /^(CARD|DCRD)$/