Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/lib/login.tcl	16 Sep 2003 13:08:38 -0000	1.8
+++ openacs-4/packages/acs-subsite/lib/login.tcl	18 Sep 2003 13:46:18 -0000	1.9
@@ -9,6 +9,11 @@
 #   email
 #
 
+# Redirect to HTTPS if so configured
+if { [security::RestrictLoginToSSLP] } {
+    security::require_secure_conn
+}
+
 if { ![exists_and_not_null package_id] } {
     set subsite_id [subsite::get_element -element object_id]
 }