[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:34:36

Modified files:
        infra/savane/bin: sv_groups 

Log message:
        .

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

Patches:
Index: administration/infra/savane/bin/sv_groups
diff -u administration/infra/savane/bin/sv_groups:1.13 
administration/infra/savane/bin/sv_groups:1.14
--- administration/infra/savane/bin/sv_groups:1.13      Tue Sep 14 02:31:58 2004
+++ administration/infra/savane/bin/sv_groups   Tue Sep 14 02:34:36 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_groups,v 1.13 2004/09/14 02:31:58 beu Exp $
+# $Id: sv_groups,v 1.14 2004/09/14 02:34:36 beu Exp $
 #
 #  Copyright 2001 (c) Loic Dachary <address@hidden> (sv_cvs.pl)
 #            2003 (c) Mathieu Roy <address@hidden> 
@@ -332,6 +332,8 @@
     my %group_filesystem;
     my $changed_group = 0;
 
+    print "DBG - compare_group(group_id $group_id)\n";
+
     for my $line (GetDB("user_group",
                        "group_id='$group_id' and admin_flags!='P'",
                        "user_id, admin_flags")) {