[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/lists stats.pl
From: |
Elfyn McBratney |
Subject: |
[Savannah-cvs] administration/lists stats.pl |
Date: |
Sat, 11 Sep 2004 23:02:49 -0400 |
CVSROOT: /cvsroot/administration
Module name: administration
Branch:
Changes by: Elfyn McBratney <address@hidden> 04/09/12 02:57:22
Modified files:
lists : stats.pl
Log message:
show the names of projects in the recent/confirmed pending section.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/lists/stats.pl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
Patches:
Index: administration/lists/stats.pl
diff -u administration/lists/stats.pl:1.3 administration/lists/stats.pl:1.4
--- administration/lists/stats.pl:1.3 Sun Sep 12 02:12:59 2004
+++ administration/lists/stats.pl Sun Sep 12 02:57:22 2004
@@ -73,6 +73,8 @@
$stats{$cur_section} = {} if !exists $stats{$cur_section};
if (/^([A-Za-z0-9\-]+)$/) {
+ $stats{$cur_section}{'projects'} = [] if !exists
$stats{$cur_section}{'projects'};
+ push @{$stats{$cur_section}{'projects'}}, $1;
$stats{$cur_section}{'count'}++;
} elsif (/^([A-Za-z0-9\-]+)\s+\(([A-Za-z]+)\)$/) {
$stats{$cur_section}{'count'}++;