From b2d209dec4f00bd444a68c201940ef90f2af050f Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Thu, 26 Aug 2010 21:10:25 +0000
Subject: [PATCH] fix bug affecting single_price calculation
---
FS/FS/part_pkg/voip_cdr.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index 984a65068..5fc1fb8cd 100644
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -699,6 +699,8 @@ sub calc_usage {
$classnum = $rate_detail->classnum;
$charge = sprintf('%.2f', $charge);
+ warn "Incrementing \$charges by $charge. Now $charges\n" if $DEBUG;
+ $charges += $charge;
@call_details = (
$cdr->downstream_csv( 'format' => $output_format,
@@ -718,8 +720,6 @@ sub calc_usage {
if ( $charge > 0 ) {
#just use FS::cust_bill_pkg_detail objects?
- warn "Incrementing \$charges by $charge. Now $charges\n" if $DEBUG;
- $charges += $charge;
my $call_details;
my $phonenum = $cust_svc->svc_x->phonenum;
--
2.20.1