projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 74666 - fixed vulnerability by escaping quotation_description var
[freeside.git]
/
bin
/
wa_tax_rate_update
diff --git
a/bin/wa_tax_rate_update
b/bin/wa_tax_rate_update
index
2d493db
..
d4a4b52
100755
(executable)
--- a/
bin/wa_tax_rate_update
+++ b/
bin/wa_tax_rate_update
@@
-78,6
+78,7
@@
my $total_skipped = 0;
while ( !$csv->eof ) {
my $line = $csv->getline_hr($fh);
my $district = $line->{Code} or next;
while ( !$csv->eof ) {
my $line = $csv->getline_hr($fh);
my $district = $line->{Code} or next;
+ $district = sprintf('%04d', $district);
my $tax = sprintf('%.1f', $line->{Rate} * 100);
my $changed = 0;
my $skipped = 0;
my $tax = sprintf('%.1f', $line->{Rate} * 100);
my $changed = 0;
my $skipped = 0;
@@
-88,6
+89,7
@@
while ( !$csv->eof ) {
district => $district,
taxclass => $opt_c,
taxname => $opt_t,
district => $district,
taxclass => $opt_c,
taxname => $opt_t,
+ tax => { op => '>', value => '0' },
});
if ($opt_t eq '') {
push @rates, qsearch('cust_main_county', {
});
if ($opt_t eq '') {
push @rates, qsearch('cust_main_county', {
@@
-95,7
+97,8
@@
while ( !$csv->eof ) {
state => 'WA', # this is specific to WA
district => $district,
taxclass => $opt_c,
state => 'WA', # this is specific to WA
district => $district,
taxclass => $opt_c,
- taxname => 'Tax'
+ taxname => 'Tax',
+ tax => { op => '>', value => '0' },
});
}
foreach my $rate (@rates) {
});
}
foreach my $rate (@rates) {