Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/contacts/www/admin/index.tcl	27 Jun 2007 23:55:37 -0000	1.17
+++ openacs-4/packages/contacts/www/admin/index.tcl	28 Jun 2007 00:05:03 -0000	1.18
@@ -130,8 +130,10 @@
 
 set return_url [ad_conn url]
 foreach group [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin" -all -include_dotlrn_p "1"] {
-    util_unlist $group group_name group_id member_count level mapped_p default_p user_change_p dotlrn_community_p notifications_p
+    util_unlist $group group_name group_id member_count level mapped_p default_p user_change_p dotlrn_community_p
 
+    set notifications_p [contact::group::notifications_p -group_id $group_id]
+
     set ams_person_url [ams::list::url \
                           -package_key "contacts" \
                           -object_type "person" \