diff options
author | ivan <ivan> | 2008-03-26 03:04:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-26 03:04:33 +0000 |
commit | 6f3d99ddb0889c3f75197b88a4cc1c785c483fe9 (patch) | |
tree | d351743d175df28a5fb0b2889477197853fe725d /FS/FS/part_pkg | |
parent | 12eecccdb5cc0b5e5f4f0122cade7e01f96d1de5 (diff) |
don't granular-ize 0 billsec calls into having a minimum charge
Diffstat (limited to 'FS/FS/part_pkg')
-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; |