From a640ee92f7a90fffc1060bf0d499a83ddae4fc2c Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 13 Apr 2009 23:37:08 +0000 Subject: [PATCH] debugging --- FS/FS/cust_main.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index b828542a7..9aac1db7b 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2459,6 +2459,7 @@ sub bill { foreach my $tax ( keys %taxlisthash ) { my $tax_object = shift @{ $taxlisthash{$tax} }; warn "found ". $tax_object->taxname. " as $tax\n" if $DEBUG > 2; + warn " ". join('/', @{ $taxlisthash{$tax} } ). "\n" if $DEBUG > 2; my $hashref_or_error = $tax_object->taxline( $taxlisthash{$tax}, 'custnum' => $self->custnum, -- 2.11.0