Index: openacs-4/packages/dotlrn/www/spam.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/spam.adp 21 Jan 2002 06:58:18 -0000 1.1 +++ openacs-4/packages/dotlrn/www/spam.adp 21 Jan 2002 07:12:02 -0000 1.2 @@ -1,5 +1,62 @@ Spam Community @context_bar@ +@portal_id@ + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
The following variables can be used to insert user/community specific data:
<sender_email> = Sender's Email Address
<sender_first_names> = Sender's First Name
<sender_last_name> = Sender's Last Name
<community_name> = Community's Name
<community_url> = Community's Web Address
<email> = User's Email
<first_names> = User's First Name
<last_name> = User's Last Name
+
Index: openacs-4/packages/dotlrn/www/spam.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/spam.tcl 21 Jan 2002 06:58:18 -0000 1.1 +++ openacs-4/packages/dotlrn/www/spam.tcl 21 Jan 2002 07:12:02 -0000 1.2 @@ -10,6 +10,7 @@ {referer "preferences"} } -properties { context_bar:onevalue + portal_id:onevalue } set context_bar {{$referer Admin} {Spam Community}} @@ -20,6 +21,9 @@ dotlrn::require_user_admin_community $community_id +set sender_id [ad_conn user_id] +set portal_id [dotlrn_community::get_portal_id $community_id $sender_id] + form create spam_message element create spam_message community_id \ @@ -80,7 +84,6 @@ # send all the emails ourselves. # let's get some data we might need - set sender_id [ad_conn user_id] db_1row select_sender_info { select parties.email as sender_email, persons.first_names as sender_first_names,