Index: openacs-4/packages/chat/www/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/chat/www/search.tcl 20 Jun 2016 08:37:04 -0000 1.2 +++ openacs-4/packages/chat/www/search.tcl 18 Jan 2019 17:14:36 -0000 1.3 @@ -3,8 +3,8 @@ } { type:notnull room_id:naturalnum,notnull -} - +} + set context [list "Users"] db_1row users_n_users {} @@ -13,17 +13,22 @@ 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 + 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 } ] +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: