Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/dotlrn/www/spam.tcl	1 Nov 2013 21:08:32 -0000	1.31
+++ openacs-4/packages/dotlrn/www/spam.tcl	7 Aug 2017 23:48:09 -0000	1.32
@@ -21,7 +21,7 @@
 } -query {
     {recipients:integer,multiple ""}
     {recipients_str ""}
-    {community_id ""}
+    {community_id:integer ""}
     {rel_types:multiple "" }
     {rel_types_str ""}
     {referer ""}
@@ -208,7 +208,7 @@
 	set message [ad_text_to_html $message]
 	set message_type "html"
     } else {
-	set message [ad_quotehtml $message]
+	set message [ns_quotehtml $message]
 	set message_type "text"
     }
 
@@ -236,3 +236,9 @@
 
 ad_return_template
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: