diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-06-03 10:16:59 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-06-03 10:16:59 -0700 |
| commit | 62f9085f731b12a25db4418b1b9bf6fb24d01d07 (patch) | |
| tree | 360f95522a9215140764b41679fd70062345b44c /FS/FS/part_pkg/sqlradacct_daily.pm | |
| parent | e370df05d108dd71cc58d50b2eebd42ca23284d6 (diff) | |
fix per-day radius usage, RT#22699
Diffstat (limited to 'FS/FS/part_pkg/sqlradacct_daily.pm')
| -rw-r--r-- | FS/FS/part_pkg/sqlradacct_daily.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_pkg/sqlradacct_daily.pm b/FS/FS/part_pkg/sqlradacct_daily.pm index d0d3e10..27fc1df 100644 --- 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) - 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($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($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 |