From: mark <mark>
Date: Thu, 26 Aug 2010 21:10:25 +0000 (+0000)
Subject: fix bug affecting single_price calculation
X-Git-Tag: TORRUS_1_0_9~338
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b2d209dec4f00bd444a68c201940ef90f2af050f;p=freeside.git

fix bug affecting single_price calculation
---

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;