Index: openacs-4/packages/acs-admin/www/users/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/users/index.tcl	3 Nov 2003 17:04:12 -0000	1.5
+++ openacs-4/packages/acs-admin/www/users/index.tcl	7 Aug 2017 23:47:45 -0000	1.6
@@ -22,17 +22,19 @@
 set n_users [util_commify_number $n_users]
 set last_registration [lc_time_fmt $last_registration "%q"]
 
-set groups [db_html_select_value_options groups_select {
-    select groups.group_id, 
-           groups.group_name, 
-           m.num as n_members, 
-           c.num as n_components 
-    from   groups, 
-           (select group_id, count(*) as num 
-            from group_member_map group by group_id) m, 
-           (select group_id, count(*) as num 
-            from group_component_map group by group_id) c 
-    where  groups.group_id=m.group_id 
-    and    groups.group_id = c.group_id
-    order  by group_name
+set groups "<option value='' selected>--</option>\n"
+append groups [db_html_select_value_options groups_select {
+    select groups.group_id, groups.group_name
+    from groups, 
+       (select distinct group_id from group_member_map) m, 
+       (select distinct group_id from group_component_map) c 
+    where groups.group_id = m.group_id 
+      and groups.group_id = c.group_id
+    order by group_name
 } ]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: