unless $keep_cch_files;
push @insert_list, $name, $insertname, $import_sub, $format;
if ( $name eq 'GEOCODE' ) { #handle this whole ordering issue better
- unshift @predelete_list, $name, $deletename, $import_sub;
+ unshift @predelete_list, $name, $deletename, $import_sub, $format;
} else {
- unshift @delete_list, $name, $deletename, $import_sub;
+ unshift @delete_list, $name, $deletename, $import_sub, $format;
}
} else {
if $part_pkg_taxproduct && $part_pkg_taxproduct->data_vendor eq $format;
foreach my $option ( $part_pkg->part_pkg_option ) {
- next unless $option->optionname =~ /^usage_taxproductnum_(\w)$/;
+ next unless $option->optionname =~ /^usage_taxproductnum_(\w+)$/;
my $class = $1;
$part_pkg_taxproduct = $part_pkg->taxproduct($class);
warn "processing $dir.new/$name.txt\n" if $DEBUG;
my $olddir = $update ? "$dir.1" : "";
$difffile = _perform_cch_diff( $name, "$dir.new", $olddir );
- } else {
- $difffile =~ s/^$cache_dir//;
- push @list, "${name}file:$difffile";
}
+ $difffile =~ s/^$cache_dir//;
+ push @list, "${name}file:$difffile";
}
# perform the import