Index: openacs-4/packages/dotlrn/www/member-email-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-email-toggle.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/member-email-toggle.tcl	21 Jul 2005 22:48:54 -0000	1.1.2.1
+++ openacs-4/packages/dotlrn/www/member-email-toggle.tcl	22 Jul 2005 14:50:48 -0000	1.1.2.2
@@ -17,14 +17,6 @@
 
 set community_id [dotlrn_community::get_community_id]
 
-db_dml toggle_member_email {
-    update
-      dotlrn_member_emails
-    set
-      enabled_p = case when enabled_p = 't' then 'f'::boolean else 't'::boolean end
-    where
-      community_id = :community_id and
-      type = 'on join'
-}
+db_dml toggle_member_email { }
 
 ad_returnredirect "one-community-admin"
\ No newline at end of file