Index: openacs-4/packages/acs-subsite/lib/user-info.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/lib/user-info.adp	17 Oct 2003 09:19:31 -0000	1.4
+++ openacs-4/packages/acs-subsite/lib/user-info.adp	15 Mar 2004 12:44:39 -0000	1.5
@@ -5,3 +5,9 @@
   <p> <font color="red">#acs-subsite.Notice#</font> #acs-subsite.Elements_not_editable# </p>
 </if>
 
+<h2>You are in the following groups:</h2>
+<ul>
+<multiple name="groups">
+  <li>@groups.group_name@</li>
+</multiple>
+</ul>
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.12
--- 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	15 Mar 2004 12:44:39 -0000	1.12
@@ -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)"