diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-09-21 15:52:11 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-09-21 15:52:11 -0700 |
commit | 147c94865852a93bf192ef15e931e456d487b69b (patch) | |
tree | 638b585bf774e5bcd2188ac7a5f53251f9e9dc51 /FS/FS/tax_rate_location.pm | |
parent | 0c7672759a3254c4bd7317edb23f40d8880d99d6 (diff) |
compliance solutions, RT#77676
Diffstat (limited to 'FS/FS/tax_rate_location.pm')
-rw-r--r-- | FS/FS/tax_rate_location.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/FS/FS/tax_rate_location.pm b/FS/FS/tax_rate_location.pm index d9646e4..0377a7d 100644 --- a/FS/FS/tax_rate_location.pm +++ b/FS/FS/tax_rate_location.pm @@ -118,10 +118,14 @@ sub check { ; return $error if $error; + my @unique = qw( data_vendor geocode ); + push @unique, qw( state country ) + if $self->data_vendor eq 'compliance_solutions'; + my $t; $t = qsearchs( 'tax_rate_location', { disabled => '', - ( map { $_ => $self->$_ } qw( data_vendor geocode ) ), + ( map { $_ => $self->$_ } @unique ), }, ) unless $self->disabled; @@ -392,6 +396,16 @@ sub batch_import { } +sub _upgrade_data { + my $class = shift; + + my $sql = "UPDATE tax_rate_location SET data_vendor = 'compliance_solutions' WHERE data_vendor = 'compliance solutions'"; + + my $sth = dbh->prepare($sql) or die $DBI::errstr; + $sth->execute() or die $sth->errstr; + +} + =head1 BUGS Currently somewhat specific to CCH supplied data. |