[Savannah-cvs] administration/lists stats.pl

[Elfyn McBratney]

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'}++;