projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9732b34
)
debug CCH update replacing a TAXCAT, RT#21687
author
Ivan Kohler
<ivan@freeside.biz>
Wed, 8 May 2013 10:31:32 +0000
(
03:31
-0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Wed, 8 May 2013 10:31:32 +0000
(
03:31
-0700)
FS/FS/tax_class.pm
patch
|
blob
|
history
diff --git
a/FS/FS/tax_class.pm
b/FS/FS/tax_class.pm
index
15f9a42
..
376a1ad
100644
(file)
--- a/
FS/FS/tax_class.pm
+++ b/
FS/FS/tax_class.pm
@@
-169,7
+169,7
@@
sub batch_import {
$hook = sub {
my $hash = shift;
$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' &&
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) {
($name eq 'TAXCAT' ? $value : '%')."'",
);
foreach (@tax_class) {
+warn "deleting ". $_->taxclass. ' '. $_->description. "\n";
my $error = $_->delete;
return $error if $error;
}
my $error = $_->delete;
return $error if $error;
}