torrus, RT#10574

diff --git a/FS/FS/part_pkg/torrus_Common.pm b/FS/FS/part_pkg/torrus_Common.pm
index 61cdde0..672fa86 100644 (file)
--- 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";