Index: openacs-4/packages/dotlrn/lib/member-email-confirm.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email-confirm.tcl,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/dotlrn/lib/member-email-confirm.tcl 21 Dec 2006 15:57:53 -0000 1.1 +++ openacs-4/packages/dotlrn/lib/member-email-confirm.tcl 6 Apr 2007 15:39:51 -0000 1.1.2.1 @@ -2,7 +2,7 @@ Ask admin to confirm email and if so let the admin edit the email before sending } { - user_id:integer,multiple + user_id {type "on join"} {return_url ""} } @@ -13,14 +13,15 @@ -privilege admin # FIXME list/unlist user_id since hidden vars can't be multiple +set user_id [split $user_id] ad_form -name member-email-confirm \ -export { user_id community_id return_url type } \ - -has_submit 1 \ +s -has_submit 1 \ -form { - {from_addr:text } - {subject:text } - {email:richtext } + {from_addr:text {label "\#dotlrn.From\#"}} + {subject:text {label "\#dotlrn.Subject\#"}} + {email:richtext {label "\#dotlrn.Email_1\#"}} {btn_ok:text(submit) {label "[_ dotlrn.OK_Send_Email]"}} {btn_cancel:text(submit) {label "[_ dotlrn.Cancel_Dont_Send_email]"}} } -on_request {