From: ivan <ivan>
Date: Mon, 13 Apr 2009 23:37:08 +0000 (+0000)
Subject: debugging
X-Git-Tag: root_of_svc_elec_features~1279
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a640ee92f7a90fffc1060bf0d499a83ddae4fc2c

debugging
---

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,