Index: openacs-4/packages/contacts/lib/groups-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups-portlet.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/groups-portlet.adp	20 Oct 2005 15:47:42 -0000	1.3
+++ openacs-4/packages/contacts/lib/groups-portlet.adp	28 Apr 2006 10:14:45 -0000	1.4
@@ -15,4 +15,5 @@
     </table>
   </td>
 </tr>
-</table>
\ No newline at end of file
+</table>
+  **PLEASE REMEMBER TO CHANGE THE GROUP STATUS 
\ No newline at end of file
Index: openacs-4/packages/contacts/lib/groups.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/lib/groups.adp	27 Apr 2006 22:32:07 -0000	1.16
+++ openacs-4/packages/contacts/lib/groups.adp	28 Apr 2006 10:14:45 -0000	1.17
@@ -11,7 +11,7 @@
 <dl class="groups">
 <multiple name="groups">
    <if @groups.sub_p@><dd class="subgroup"></if><else><dt class="primarygroup"></else>
-   @groups.group;noquote@ <a href="@groups.remove_url@"><img src="/resources/acs-subsite/Delete16.gif" width="16" height="16" border="0" alt="#contacts.Delete_from# @groups.group;noquote@"></a>
+   @groups.group;noquote@ <a href="@groups.remove_url@"><img src="/resources/acs-subsite/Delete16.gif" width="16" height="16" border="0" alt="#contacts.Delete_from# @groups.group;noquote@"></a> - <font size="-2">[@groups.creation_date@]</font>
    <if @groups.sub_p@></dd></if><else><dt></else>
 </multiple>
 <if @user_p@ eq 1><dt class="primarygroup">#contacts.Users#</dt></if>
Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/lib/groups.tcl	20 Feb 2006 22:01:02 -0000	1.14
+++ openacs-4/packages/contacts/lib/groups.tcl	28 Apr 2006 10:14:45 -0000	1.15
@@ -12,7 +12,11 @@
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
 
-set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
+set groups_belonging_to [list]
+db_foreach get_party_groups { select group_id,min(creation_date) as creation_date from group_approved_member_map gam, acs_objects o where member_id = :party_id and rel_id=object_id group by gam.group_id} {
+    lappend groups_belonging_to $group_id
+    set creation_dates($group_id) $creation_date
+}
 
 set return_url "[contact::url -party_id $party_id]groups"
 set object_type [contact::type -party_id $party_id]
@@ -45,7 +49,7 @@
 }
 
 
-multirow create groups group_id group sub_p remove_url
+multirow create groups group_id group sub_p remove_url creation_date
 set sub_p "0"
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_name [lindex $group 0]
@@ -55,10 +59,15 @@
 	set sub_p "0"
     }
     set group_id [lindex $group 1]
+    if {[exists_and_not_null creation_dates($group_id)]} {
+	set creation_date [lc_time_fmt $creation_dates($group_id) %q]
+    } else {
+	set creation_date ""
+    }
     set remove_url [export_vars -base "${package_url}/group-parties-remove" -url {group_id party_id return_url}] 
     if { [lindex $group 2] == "1" } { set active_top_level [lindex $group 0] }
     if { [lsearch $groups_belonging_to [lindex $group 1]] >= 0 } {
-        multirow append groups [lindex $group 1] $group_name $sub_p $remove_url
+        multirow append groups [lindex $group 1] $group_name $sub_p $remove_url $creation_date
     }
 }