Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.115 -r1.116
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	27 Jun 2007 23:55:36 -0000	1.115
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	28 Jun 2007 00:05:02 -0000	1.116
@@ -1175,7 +1175,7 @@
     set user_id [ad_conn user_id]
     set group_list [list]
     foreach one_group [contact::groups_list -package_id $package_id -include_dotlrn_p $include_dotlrn_p] {
-	util_unlist $one_group group_id group_name member_count component_count mapped_p default_p user_change_p dotlrn_community_p notifications_p
+	util_unlist $one_group group_id group_name member_count component_count mapped_p default_p user_change_p dotlrn_community_p
 	if {$user_change_p eq ""} {
 	    set user_change_p 0
 	}
@@ -1194,11 +1194,11 @@
 	}
         if { $mapped_p || $all_p} {
 	    # we localize twice because for some reason some localized keys references another localized key
-            lappend group_list [list [lang::util::localize [lang::util::localize $group_name]] $group_id $member_count "1" $mapped_p $default_p $user_change_p $dotlrn_community_p $notifications_p]
+            lappend group_list [list [lang::util::localize [lang::util::localize $group_name]] $group_id $member_count "1" $mapped_p $default_p $user_change_p $dotlrn_community_p]
             if { $component_count > 0 && ( $expand == "all" || $expand == $group_id ) } {
                 db_foreach get_components {} {
 		    if { $mapped_p || $all_p} {
-			lappend group_list [list "$indent_with[lang::util::localize [lang::util::localize $group_name]]" $group_id $member_count "2" $mapped_p $default_p $user_change_p $dotlrn_community_p $notifications_p]
+			lappend group_list [list "$indent_with[lang::util::localize [lang::util::localize $group_name]]" $group_id $member_count "2" $mapped_p $default_p $user_change_p $dotlrn_community_p]
 		    }
 		}
             }
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" \