summaryrefslogtreecommitdiff
path: root/FS/FS/geocode_Mixin.pm
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2015-05-16 09:14:55 -0700
committerMark Wells <mark@freeside.biz>2015-05-16 09:14:55 -0700
commitba7cfd1a5a421e04061eab8f8a8c1e44cce3f441 (patch)
tree50cb45a5cf4e99d07b109486d6cc61f349e68d2d /FS/FS/geocode_Mixin.pm
parent8dfd98dd38686b5a5ce4c64b84e51539f93f5fbf (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.pm4
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 };