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 } ] Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl 3 Jan 2020 12:13:52 -0000 1.10.2.1 +++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl 6 Sep 2022 06:51:35 -0000 1.10.2.2 @@ -43,7 +43,7 @@ where role = r.role_two) as role_pretty_plural from rel_segments s, acs_rel_types r where s.segment_id = :segment_id - and s.rel_type = r.rel_type + and s.rel_type = r.rel_type } -column_array props] } { ad_return_error \ "Segment does not exist" \