$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' &&
($name eq 'TAXCAT' ? $value : '%')."'",
);
foreach (@tax_class) {
+warn "deleting ". $_->taxclass. ' '. $_->description. "\n";
my $error = $_->delete;
return $error if $error;
}