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;
district => $district,
taxclass => $opt_c,
taxname => $opt_t,
+ tax => { op => '>', value => '0' },
});
if ($opt_t eq '') {
push @rates, qsearch('cust_main_county', {
state => 'WA', # this is specific to WA
district => $district,
taxclass => $opt_c,
- taxname => 'Tax'
+ taxname => 'Tax',
+ tax => { op => '>', value => '0' },
});
}
foreach my $rate (@rates) {