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.6 -r1.6.2.1 --- openacs-4/packages/acs-admin/www/users/index.tcl 7 Aug 2017 23:47:45 -0000 1.6 +++ openacs-4/packages/acs-admin/www/users/index.tcl 6 Sep 2022 06:50:08 -0000 1.6.2.1 @@ -2,12 +2,12 @@ by a bunch of folks including philg@mit.edu and teadams@arsdigita.com modified by philg on October 30, 1999 to cache the page (sequentially scanning through users and such was slowing it down) - + modified by aure@caltech.edu on February 4, 2000 to make the page more user friendly - + we define this procedure here in the file because we don't care if - it gets reparsed; it is RDBMS load that was slowing stuff down. We also + it gets reparsed; it is RDBMS load that was slowing stuff down. We also want programmers to have an easy way to edit this page. @cvs-id $Id$ @@ -25,10 +25,10 @@ set groups "\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 + 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 } ]