Index: openacs-4/packages/dotlrn/www/member-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-email.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/member-email.tcl 7 Aug 2017 23:48:09 -0000 1.4 +++ openacs-4/packages/dotlrn/www/member-email.tcl 27 Jan 2018 17:58:19 -0000 1.5 @@ -18,7 +18,7 @@ set community_id [dotlrn_community::get_community_id] dotlrn::require_user_admin_community -community_id $community_id -db_0or1row member_email { } +db_0or1row member_email {} ad_form -name "member_email" -form { {email_id:key} @@ -36,17 +36,17 @@ } -new_data { - db_dml new_email { } + db_dml new_email {} } -edit_request { - db_1row member_email_values { } + db_1row member_email_values {} set email [list $email ""] } -edit_data { - db_dml update_email { } + db_dml update_email {} } -after_submit {