[Savannah-cvs] administration/infra/savane/bin sv_groups

[Elfyn McBratney]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Elfyn McBratney <address@hidden>        04/09/14 02:16:48

Modified files:
        infra/savane/bin: sv_groups 

Log message:
        fix order.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/savane/bin/sv_groups.diff?tr1=1.9&tr2=1.10&r1=text&r2=text

Patches:
Index: administration/infra/savane/bin/sv_groups
diff -u administration/infra/savane/bin/sv_groups:1.9 
administration/infra/savane/bin/sv_groups:1.10
--- administration/infra/savane/bin/sv_groups:1.9       Tue Sep 14 02:10:26 2004
+++ administration/infra/savane/bin/sv_groups   Tue Sep 14 02:16:48 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_groups,v 1.9 2004/09/14 02:10:26 beu Exp $
+# $Id: sv_groups,v 1.10 2004/09/14 02:16:48 beu Exp $
 #
 #  Copyright 2001 (c) Loic Dachary <address@hidden> (sv_cvs.pl)
 #            2003 (c) Mathieu Roy <address@hidden> 
@@ -190,7 +190,7 @@
 my @db_groups_infos = GetDB("groups", "status='A'",
                            
"group_id,unix_group_name,type,is_public,use_homepage,".
                            "use_cvs,use_download,dir_homepage,dir_cvs,".
-                           "dir_download");
+                           "dir_download,group_id");
 
 foreach my $line (@db_groups_infos) {
     chomp($line);
@@ -199,7 +199,7 @@
 
     print "DBG db: get group $line from database\n" if $debug;
 
-    $db_groups{$name} = [ ($name, $type, $is_public, $use_homepage,
+    $db_groups{$name} = [ ($group_id, $name, $type, $is_public, $use_homepage,
                           $use_cvs, $use_download, $dir_homepage,
                           $dir_cvs, $dir_download) ];
     push(@db_groups, $name);