From 197c503fbe112896332e9ca5f17c9c5a2ea4bb87 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 22 Sep 2010 20:46:38 +0000 Subject: [PATCH] use Data::Dumper to fix debugging - hopefully last of fallout from refactoring things into their own fiels --- FS/FS/cust_main/Billing.pm | 2 ++ FS/FS/cust_main/Billing_Realtime.pm | 1 + 2 files changed, 3 insertions(+) diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index 3ebc87da3..37eae8c71 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -3,6 +3,7 @@ package FS::cust_main::Billing; use strict; use vars qw( $conf $DEBUG $me ); use Carp; +use Data::Dumper; use List::Util qw( min ); use FS::UID qw( dbh ); use FS::Record qw( qsearch qsearchs dbdef ); @@ -628,6 +629,7 @@ jurisdictions (i.e. Texas) have tax exemptions which are date sensitive. =back =cut + sub calculate_taxes { my ($self, $cust_bill_pkg, $taxlisthash, $invoice_time) = @_; diff --git a/FS/FS/cust_main/Billing_Realtime.pm b/FS/FS/cust_main/Billing_Realtime.pm index 4a9d2c685..60554957b 100644 --- a/FS/FS/cust_main/Billing_Realtime.pm +++ b/FS/FS/cust_main/Billing_Realtime.pm @@ -3,6 +3,7 @@ package FS::cust_main::Billing_Realtime; use strict; use vars qw( $conf $DEBUG $me ); use vars qw( $realtime_bop_decline_quiet ); #ugh +use Data::Dumper; use Digest::MD5 qw(md5_base64); use Business::CreditCard 0.28; use FS::UID qw( dbh ); -- 2.11.0