Index: openacs-4/packages/dotlrn/www/member-email-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-email-confirm.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/member-email-confirm.tcl	15 May 2007 20:14:25 -0000	1.2
+++ openacs-4/packages/dotlrn/www/member-email-confirm.tcl	7 Aug 2017 23:48:09 -0000	1.3
@@ -1,7 +1,7 @@
 ad_page_contract {
     Send word of welcome
 } -query {
-    community_id
+    community_id:naturalnum,notnull
 } -validate {
     community_id_is_dotlrn_community {
 	if {[dotlrn_community::get_community_key -community_id $community_id] eq ""} {
@@ -18,3 +18,9 @@
 set page_title "[_ dotlrn.Send_Welcome_Message]"
 set context [list $page_title]
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: