From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 8 May 2013 10:31:38 +0000 (-0700)
Subject: debug CCH update replacing a TAXCAT, RT#21687
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b475ac28dcf56af7cb85d6a8471b8b4baf6130cd;p=freeside.git

debug CCH update replacing a TAXCAT, RT#21687
---

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;
             }