Index: openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	1 Nov 2013 21:08:32 -0000	1.4
+++ openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
@@ -18,7 +18,7 @@
     @creation-date 2002-01-18
     @version $Id$
 } -query {
-    {community_id ""}
+    {community_id:integer ""}
     policy:notnull
     {referer "one-community-admin"}
 } -validate {
@@ -48,3 +48,9 @@
 util_memoize_flush_regexp "${community_id}(.*)dotlrn_spam_community"
 
 ad_returnredirect $referer
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: