[freeside-commits] freeside/FS/FS/cust_main Billing.pm, 1.5, 1.6 Billing_Realtime.pm, 1.6, 1.7
Ivan,,,
ivan at wavetail.420.am
Wed Sep 22 13:46:40 PDT 2010
Update of /home/cvs/cvsroot/freeside/FS/FS/cust_main
In directory wavetail.420.am:/tmp/cvs-serv23514
Modified Files:
Billing.pm Billing_Realtime.pm
Log Message:
use Data::Dumper to fix debugging - hopefully last of fallout from refactoring things into their own fiels
Index: Billing_Realtime.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Billing_Realtime.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- Billing_Realtime.pm 22 Sep 2010 19:16:19 -0000 1.6
+++ Billing_Realtime.pm 22 Sep 2010 20:46:38 -0000 1.7
@@ -3,6 +3,7 @@
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 );
Index: Billing.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Billing.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -d -r1.5 -r1.6
--- Billing.pm 22 Sep 2010 19:16:19 -0000 1.5
+++ Billing.pm 22 Sep 2010 20:46:38 -0000 1.6
@@ -3,6 +3,7 @@
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 @@
=back
=cut
+
sub calculate_taxes {
my ($self, $cust_bill_pkg, $taxlisthash, $invoice_time) = @_;
More information about the freeside-commits
mailing list