Index: openacs-4/packages/acs-subsite/www/register/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/register/index.tcl	27 Oct 2014 16:40:01 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/register/index.tcl	7 Aug 2017 23:47:59 -0000	1.15
@@ -5,7 +5,14 @@
     {authority_id:naturalnum ""}
     {username ""}
     {email ""}
-    {return_url ""}
+    {return_url:localurl ""}
+    {host_node_id:naturalnum ""}
+} -validate {
+    valid_email -requires email {
+        if {![regexp {^[\w.@+/=$%!*~-]+$} $email]} {
+            ad_complain "invalid email address"
+        }
+    }
 }
 
 set subsite_id [ad_conn subsite_id]
@@ -15,3 +22,10 @@
     set login_template "/packages/acs-subsite/lib/login"
 }
 
+ns_log notice "register/index.tcl: login_template <$login_template> host_node_id <$host_node_id>"
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: