From 4a524aa075fdfd4e37203843e6008bfcc064391e Mon Sep 17 00:00:00 2001
From: Barbie <barbie@missbarbell.co.uk>
Date: Sun, 29 Jan 2012 10:34:50 +0000
Subject: [PATCH] fixed ranges

---
 Changes                            |  1 +
 examples/example-settings.ini      | 15 +++++----------
 lib/CPAN/Testers/WWW/Statistics.pm |  4 ++--
 3 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/Changes b/Changes
index edb9f8b..03985f1 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for CPAN-Testers-WWW-Statistics
 0.96	current
 	- set_max & set_range reworked (Graph.pm).
 	- fix dates for test database creation.
+	- fixed range limits.
 
 0.95	26/01/2012
 	- removed NNTP code from cpanmail.cgi.
diff --git a/examples/example-settings.ini b/examples/example-settings.ini
index f651772..e95e6e7 100644
--- a/examples/example-settings.ini
+++ b/examples/example-settings.ini
@@ -58,23 +58,18 @@ css/layout_text.css
 css/layout_wide.css
 HERE
 
+[TOLINK]
+cgi-bin/response.html=response.html
 
-; Date Ranges for graphs
 
-[RANGES]
-LIST=<<HERE
-199901-200412
-200301-200712
-200601-201012
-201001-201312
-HERE
+; Date Ranges for graphs
 
 [TEST_RANGES]
 LIST=<<HERE
 199901-200412
 200301-200712
 200601-201012
-201001-201201
+200901-201312
 HERE
 
 [CPAN_RANGES]
@@ -83,7 +78,7 @@ LIST=<<HERE
 199901-200412
 200301-200712
 200601-201012
-201001-201201
+200901-201312
 HERE
 
 
diff --git a/lib/CPAN/Testers/WWW/Statistics.pm b/lib/CPAN/Testers/WWW/Statistics.pm
index 1b67b2a..fe4b3a2 100644
--- a/lib/CPAN/Testers/WWW/Statistics.pm
+++ b/lib/CPAN/Testers/WWW/Statistics.pm
@@ -274,8 +274,8 @@ sub ranges {
     my ($self,$section) = @_;
     return  unless($section);
     my @now = localtime(time);
-    if($now[4]==0) { $now[5]--; $now[4]=11; }
-    my $now = sprintf "%04d%02d", $now[5]+1900, $now[4]+1;
+    if($now[4]==0) { $now[5]--; $now[4]=12; }
+    my $now = sprintf "%04d%02d", $now[5]+1900, $now[4];
 
     my @RANGES;
     if($section eq 'NONE') {