diff options
author | ivan <ivan> | 2011-01-24 00:46:13 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-01-24 00:46:13 +0000 |
commit | f418cb9b44dbd593f03b3f83dbad71879af288af (patch) | |
tree | cadd514650486c1b44245dadc00bd9fc861c02dd | |
parent | 579f53d902c7a040f853587f7e3e15eb3ec46087 (diff) |
torrus, RT#10574
-rw-r--r-- | FS/FS/part_pkg/torrus_Common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/part_pkg/torrus_Common.pm b/FS/FS/part_pkg/torrus_Common.pm index 61cdde0df..672fa86fd 100644 --- a/FS/FS/part_pkg/torrus_Common.pm +++ b/FS/FS/part_pkg/torrus_Common.pm @@ -32,7 +32,7 @@ sub calc_usage { my @sdate = localtime($$sdate); #sdate is next bill date, but we want the report from last month - my($m, $y) = ($sdate[4], $sdate[5]); + my($m, $y) = ($sdate[4], $sdate[5]+1900); if ( $m == 0 ) { $m=12; $y--; } $m = "0$m" if length($m) == 1; my $rep_date = "$y-$m-01"; |