-my $cfh = $cgi->upload('codefile');
-my $zfh = $cgi->upload('plus4file');
-my $tfh = $cgi->upload('txmatrix');
-my $dfh = $cgi->upload('detail');
-#warn $cgi;
-#warn $fh;
-
-my $oldAutoCommit = $FS::UID::AutoCommit;
-local $FS::UID::AutoCommit = 0;
-my $dbh = dbh;
-
-my $error = defined($cfh)
- ? FS::tax_class::batch_import( {
- filehandle => $cfh,
- 'format' => scalar($cgi->param('format')),
- } )
- : 'No code file';
-
-$error ||= defined($zfh)
- ? FS::cust_tax_location::batch_import( {
- filehandle => $zfh,
- 'format' => scalar($cgi->param('format')),
- } )
- : 'No plus4 file';
-
-$error ||= defined($tfh)
- ? FS::part_pkg_taxrate::batch_import( {
- filehandle => $tfh,
- 'format' => scalar($cgi->param('format')),
- } )
- : 'No tax matrix file';
-
-$error ||= defined($dfh)
- ? FS::tax_rate::batch_import( {
- filehandle => $dfh,
- 'format' => scalar($cgi->param('format')),
- } )
- : 'No tax detail file';
-
-if ($error) {
- $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
-}else{
- $dbh->commit or die $dbh->errstr if $oldAutoCommit;
-}