Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	11 Sep 2003 08:04:45 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	18 Sep 2003 13:44:30 -0000	1.13
@@ -15,6 +15,10 @@
 
 # TODO: Move to includeable chunk
 
+# Redirect to HTTPS if so configured
+if { [security::RestrictLoginToSSLP] } {
+    security::require_secure_conn
+}
 
 # TODO: log user out if currently logged in, if specified in the includeable chunk's parameters, e.g. not when creating accounts for other users
 ad_user_logout