Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v diff -u -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/dotlrn/tcl/spam-procs.tcl 18 Sep 2015 08:05:09 -0000 1.10.2.2 +++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl 21 Apr 2017 20:45:16 -0000 1.10.2.3 @@ -48,7 +48,7 @@ } ad_proc -public send { - {-recepients:required} + {-recipients:required} {-from:required} {-real_from:required} {-subject:required} @@ -57,7 +57,7 @@ } { Send a spam to a set of users. - @param recepients a list of party_id's; the recepients. + @param recipients a list of party_id's; the recipients. @param from email address to set as "From" @param real_from real address of the sender to use in case of errors. @@ -70,9 +70,9 @@ set subject [interpolate -values $message_values -text $subject] set message [interpolate -values $message_values -text $message] - # loop through all the recepients and send them the spam + # loop through all the recipients and send them the spam set errors "" - db_foreach select_recepient_info {} { + db_foreach select_recipient_info {} { # replace some values in the subject and the message set values [list] lappend values [list \{email\} $email]