X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Ftax_class.pm;h=376a1ad40ad6142334b9fae03e617f58a5b7c9be;hb=b475ac28dcf56af7cb85d6a8471b8b4baf6130cd;hp=15f9a42a69ddc62248d4001acb619c9c449eb308;hpb=a156ba5a5fa5b9b98fa480543f61f74c6c638a83;p=freeside.git

diff --git a/FS/FS/tax_class.pm b/FS/FS/tax_class.pm
index 15f9a42a6..376a1ad40 100644
--- a/FS/FS/tax_class.pm
+++ b/FS/FS/tax_class.pm
@@ -169,7 +169,7 @@ sub batch_import {
 
     $hook = sub { 
       my $hash = shift;
-
+warn Dumper($hash);
       if ($hash->{'table'} eq 'DETAIL') {
         push @{$data->{'taxcat'}}, [ $hash->{'value'}, $hash->{'description'} ]
           if ($hash->{'name'} eq 'TAXCAT' &&
@@ -194,6 +194,7 @@ sub batch_import {
                                        ($name eq 'TAXCAT' ? $value : '%')."'",
                                    );
             foreach (@tax_class) {
+warn "deleting ". $_->taxclass. ' '. $_->description. "\n";
               my $error = $_->delete;
               return $error if $error;
             }