Skip to content
Browse files

fixed ranges

  • Loading branch information...
1 parent 94211b5 commit 4a524aa075fdfd4e37203843e6008bfcc064391e @barbie committed Jan 29, 2012
Showing with 8 additions and 12 deletions.
  1. +1 −0 Changes
  2. +5 −10 examples/example-settings.ini
  3. +2 −2 lib/CPAN/Testers/WWW/Statistics.pm
View
1 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.
View
15 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
View
4 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') {

0 comments on commit 4a524aa

Please sign in to comment.
Something went wrong with that request. Please try again.