Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.11 -r1.11.4.1
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	17 Oct 2003 17:51:07 -0000	1.11
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	19 Mar 2004 09:24:45 -0000	1.11.4.1
@@ -179,3 +179,8 @@
     }
 }
 
+db_multirow groups groups "
+  select distinct groups.group_id, lower(groups.group_name), groups.group_name
+     from groups, group_member_map gm
+     where groups.group_id = gm.group_id and gm.member_id=:user_id
+  order by lower(groups.group_name)"