projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
39f23d9
)
fix per-day radius usage, RT#22699
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 3 Jun 2013 17:17:01 +0000
(10:17 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 3 Jun 2013 17:17:01 +0000
(10:17 -0700)
FS/FS/part_pkg/sqlradacct_daily.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_pkg/sqlradacct_daily.pm
b/FS/FS/part_pkg/sqlradacct_daily.pm
index
d0d3e10
..
27fc1df
100644
(file)
--- a/
FS/FS/part_pkg/sqlradacct_daily.pm
+++ b/
FS/FS/part_pkg/sqlradacct_daily.pm
@@
-96,15
+96,15
@@
sub calc_recur {
# bill that day, we didn't have a full picture of the day's usage)
# and ending with sdate exclusive (same reason)
# bill that day, we didn't have a full picture of the day's usage)
# and ending with sdate exclusive (same reason)
- my($l_day, $l_mon, $l_year) = (localtime($last_bill))[3
,
5];
+ my($l_day, $l_mon, $l_year) = (localtime($last_bill))[3
..
5];
my $day_start = timelocal(0,0,0, $l_day, $l_mon, $l_year);
my $day_start = timelocal(0,0,0, $l_day, $l_mon, $l_year);
- my($s_day, $s_mon, $s_year) = (localtime($$sdate))[3
,
5];
+ my($s_day, $s_mon, $s_year) = (localtime($$sdate))[3
..
5];
my $billday_start = timelocal(0,0,0, $s_day, $s_mon, $s_year);
while ( $day_start < $billday_start ) {
my $billday_start = timelocal(0,0,0, $s_day, $s_mon, $s_year);
while ( $day_start < $billday_start ) {
- my($day, $mon, $year) = (localtime($day_start))[3
,
5];
+ my($day, $mon, $year) = (localtime($day_start))[3
..
5];
my $tomorrow = timelocal_nocheck(0,0,0, $day+1, $mon, $year);
#afact the usage methods already use the lower bound inclusive and the upper
my $tomorrow = timelocal_nocheck(0,0,0, $day+1, $mon, $year);
#afact the usage methods already use the lower bound inclusive and the upper