diff options
author | ivan <ivan> | 2008-03-26 03:04:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-26 03:04:34 +0000 |
commit | 1944cee570d56d2fae579da4ea54ee28fee051a1 (patch) | |
tree | 328686555c9554c851e5331142e90e26e11b01a2 | |
parent | 96704cdedc2350daaeb6945efe6a0697eee3d643 (diff) |
don't granular-ize 0 billsec calls into having a minimum charge
-rw-r--r-- | FS/FS/part_pkg/voip_cdr.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index ea160315b..72ef55ff0 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -278,9 +278,10 @@ sub calc_recur { unless exists $included_min{$regionnum}; my $granularity = $rate_detail->sec_granularity; - my $seconds = $cdr->billsec; # |ength($cdr->billsec) ? $cdr->billsec : $cdr->duration; + my $seconds = $cdr->billsec; # length($cdr->billsec) ? $cdr->billsec : $cdr->duration; $seconds += $granularity - ( $seconds % $granularity ) - if $granularity; # 0 is per call + if $seconds # don't granular-ize 0 billsec calls (bills them) + && $granularity; # 0 is per call my $minutes = sprintf("%.1f", $seconds / 60); $minutes =~ s/\.0$// if $granularity == 60; |