From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 4 Sep 2013 05:52:05 +0000 (-0700)
Subject: rounding
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6de95595e5e7eb53fd70fe6c30d96fb946091e93

rounding
---

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 3ebe6c420..e127e8bc5 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -951,9 +951,15 @@ sub rate_prefix {
   # this is why we need regionnum/rate_region....
   warn "  (rate region $rate_region)\n" if $DEBUG;
 
+  # NOW round it.
+  my $rounding = $part_pkg->option_cacheable('rounding') || 2;
+  my $sprintformat = '%.'. $rounding. 'f';
+  my $roundup = 10**(-3-$rounding);
+  my $price = sprintf($sprintformat, $charge + $roundup);
+
   $self->set_status_and_rated_price(
     'rated',
-    sprintf('%.2f', $charge + 0.000001), # NOW round it.
+    $price,
     $opt{'svcnum'},
     'rated_pretty_dst'    => $pretty_dst,
     'rated_regionname'    => $rate_region->regionname,