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; | 
