X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fgeocode_Mixin.pm;h=a372faaa89f7d87663f53823cdf053699d1abd12;hb=3cbdd85a96348a287623e3b97c937c7749e99392;hp=8d0c7eae8f964a7d1b9e2ac5e237d42faccab150;hpb=2c55b855a1d9de4684d6e1a910db5de5c56f9482;p=freeside.git diff --git a/FS/FS/geocode_Mixin.pm b/FS/FS/geocode_Mixin.pm index 8d0c7eae8..a372faaa8 100644 --- a/FS/FS/geocode_Mixin.pm +++ b/FS/FS/geocode_Mixin.pm @@ -279,9 +279,42 @@ sub process_district_update { my @old = qsearch('cust_main_county', \%hash); if ( @old ) { + # prune any duplicates rather than updating them + my %keep; # key => cust_main_county record foreach my $cust_main_county (@old) { + my $key = join('.', $cust_main_county->city , + $cust_main_county->district , + $cust_main_county->taxclass + ); + if ( exists $keep{$key} ) { + my $disable_this = $cust_main_county; + # prefer records that have a tax name + if ( $cust_main_county->taxname and not $keep{$key}->taxname ) { + $disable_this = $keep{$key}; + $keep{$key} = $cust_main_county; + } + # disable by setting the rate to zero, and setting source to null + # so it doesn't get auto-updated in the future. don't actually + # delete it, that produces orphan records + warn "disabling tax rate #" . + $disable_this->taxnum . + " because it's a duplicate for $key\n" + if $DEBUG; + # by setting its rate to zero, and never updating + # it again + $disable_this->set('tax' => 0); + $disable_this->set('source' => ''); + $error = $disable_this->replace; + die $error if $error; + } + + $keep{$key} ||= $cust_main_county; + + } + foreach my $key (keys %keep) { + my $cust_main_county = $keep{$key}; warn "updating tax rate #".$cust_main_county->taxnum. - " for district ".$tax_info->{'district'} if $DEBUG; + " for $key" if $DEBUG; # update the tax rate only $cust_main_county->set('tax', $tax_info->{'tax'}); $error ||= $cust_main_county->replace;