diff options
author | Mark Wells <mark@freeside.biz> | 2015-05-16 09:14:55 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-05-16 09:14:55 -0700 |
commit | ba7cfd1a5a421e04061eab8f8a8c1e44cce3f441 (patch) | |
tree | 50cb45a5cf4e99d07b109486d6cc61f349e68d2d /FS/FS/geocode_Mixin.pm | |
parent | 8dfd98dd38686b5a5ce4c64b84e51539f93f5fbf (diff) |
avoid overwriting secondary taxes during district tax updates, #34668
Diffstat (limited to 'FS/FS/geocode_Mixin.pm')
-rw-r--r-- | FS/FS/geocode_Mixin.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/geocode_Mixin.pm b/FS/FS/geocode_Mixin.pm index 57d8ca0..611b9e5 100644 --- a/FS/FS/geocode_Mixin.pm +++ b/FS/FS/geocode_Mixin.pm @@ -236,6 +236,8 @@ sub process_district_update { my $class = shift; my $id = shift; + local $DEBUG = 1; + eval "use FS::Misc::Geo qw(get_district); use FS::Conf; use $class;"; die $@ if $@; die "$class has no location data" if !$class->can('location_hash'); @@ -255,6 +257,8 @@ sub process_district_update { my %hash = map { $_ => $tax_info->{$_} } qw( district city county state country ); + $hash{'taxname'} = ''; + my $old = qsearchs('cust_main_county', \%hash); if ( $old ) { my $new = new FS::cust_main_county { $old->hash, %$tax_info }; |