Index: openacs-4/packages/dotlrn/www/spam-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/spam-2.tcl	16 May 2002 03:56:31 -0000	1.1
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	17 May 2002 19:14:00 -0000	1.2
@@ -22,12 +22,16 @@
     @version $Id$
 } -query {
 } -properties {
+    subject:onevalue
+    message:onevalue
     spam_name:onevalue
     context_bar:onevalue
     community_id:onevalue
     portal_id:onevalue
 }
 
+form get_values spam_message subject message
+
 set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
 set context_bar [list [list $referer Admin] "$spam_name Community"]
 set community_id [dotlrn_community::get_community_id]