diff options
| author | ivan <ivan> | 2011-03-14 22:06:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-03-14 22:06:33 +0000 |
| commit | 35a080138993a44e61ab5d30b46687388fed4c04 (patch) | |
| tree | 3951f5cc7ac1580bb28366ba24ebb9c85aa296c1 | |
| parent | adaed99f98856d3a2a72804c77ef006a0bce6cb8 (diff) | |
additional debugging, RT#11993
| -rw-r--r-- | FS/FS/cust_main/Billing.pm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index 64dd8e4ca..3b9f0c94c 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -897,13 +897,6 @@ sub _make_lines { || $cust_pkg->setup || $time; - if ( $DEBUG > 2 ) { - warn 'part_pkg.freq: '. $part_pkg->freq. "\n"; - warn 'cust_pkg.bill: '. $cust_pkg->getfield('bill'). "\n"; - warn "time: $time\n"; - warn "options{cancel}: $options{cancel}\n"; - } - #over two params! lets at least switch to a hashref for the rest... my $increment_next_bill = ( $part_pkg->freq ne '0' && ( $cust_pkg->getfield('bill') || 0 ) <= $time @@ -925,7 +918,7 @@ sub _make_lines { warn "calling $method on cust_pkg ". $cust_pkg->pkgnum. " for pkgpart ". $cust_pkg->pkgpart. - " with params ". join(' / ', map "$_=>$params{$_}", keys %param). "\n" + " with params ". join(' / ', map "$_=>$param{$_}", keys %param). "\n" if $DEBUG > 2; $recur = eval { $cust_pkg->$method( \$sdate, \@details, \%param ) }; |