Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	24 Jul 2004 08:34:16 -0000	1.16
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	21 Jul 2005 22:55:06 -0000	1.16.2.1
@@ -82,3 +82,14 @@
 # get the subcomm info
 set rows [dotlrn_community::get_subcomm_info_list -community_id $community_id]
 template::util::list_of_ns_sets_to_multirow -rows $rows -var_name subgroups
+
+# get member email notification
+db_0or1row member_email {
+    select
+      enabled_p as member_email_enabled_p
+    from
+      dotlrn_member_emails
+    where
+      community_id = :community_id and
+      type = 'on join'
+}