From f418cb9b44dbd593f03b3f83dbad71879af288af Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 24 Jan 2011 00:46:13 +0000
Subject: [PATCH] torrus, RT#10574

---
 FS/FS/part_pkg/torrus_Common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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