fixed ranges

FROGGS · Jan 29, 2012 · 4a524aa · 4a524aa
1 parent 94211b5
commit 4a524aa
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 12 deletions.
diff --git 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
@@ -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
@@ -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') {