diff options
| author | ivan <ivan> | 2011-03-14 21:41:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-03-14 21:41:05 +0000 |
| commit | b08fdcdd5b0c7e32e0a666fd9a044651dd575589 (patch) | |
| tree | ca79dc8e1d0c010d9f35ca429192197884e0629e | |
| parent | 2459f013a10e3a238160a35faaf12cd038c43182 (diff) | |
additional debugging, RT#11993
| -rw-r--r-- | FS/FS/cust_main/Billing.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index 5efeb8268..cbe8b6466 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -916,6 +916,10 @@ sub _make_lines { # which can_discount are supported. # (the UI should prevent adding discounts to these at the moment) + warn "calling $method on cust_pkg ". $cust_pkg->pkgnum. " with params ". + join(' / ', map "$_=>$params{$_}", keys %param). "\n" + if $DEBUG > 2; + $recur = eval { $cust_pkg->$method( \$sdate, \@details, \%param ) }; return "$@ running $method for $cust_pkg\n" if ( $@ ); |