projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8de3980
)
yow. fix spurious charge errors w/single_price, round to four decimal places (wtf...
author
ivan
<ivan>
Tue, 21 Jul 2009 07:03:11 +0000
(07:03 +0000)
committer
ivan
<ivan>
Tue, 21 Jul 2009 07:03:11 +0000
(07:03 +0000)
FS/FS/part_pkg/voip_cdr.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_pkg/voip_cdr.pm
b/FS/FS/part_pkg/voip_cdr.pm
index
11ff76b
..
4f05963
100644
(file)
--- a/
FS/FS/part_pkg/voip_cdr.pm
+++ b/
FS/FS/part_pkg/voip_cdr.pm
@@
-475,10
+475,12
@@
sub calc_usage {
my $minutes = sprintf("%.1f", $seconds / 60);
$minutes =~ s/\.0$// ;# if $granularity == 60;
my $minutes = sprintf("%.1f", $seconds / 60);
$minutes =~ s/\.0$// ;# if $granularity == 60;
- $charge = sprintf('%.2f', ( $self->option('min_charge') * $minutes )
- + 0.00000001 ); #so 1.005 rounds to 1.01
+ # XXX config?
+ #$charge = sprintf('%.2f', ( $self->option('min_charge') * $minutes )
+ #+ 0.00000001 ); #so 1.005 rounds to 1.01
+ $charge = sprintf('%.4f', ( $self->option('min_charge') * $minutes )
+ + 0.0000000001 ); #so 1.00005 rounds to 1.0001
- $charge =
$charges += $charge;
@call_details = ($cdr->downstream_csv( 'format' => $output_format,
$charges += $charge;
@call_details = ($cdr->downstream_csv( 'format' => $output_format,