Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -N -r1.52 -r1.53
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	8 Oct 2003 09:59:06 -0000	1.52
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	9 Oct 2003 10:07:50 -0000	1.53
@@ -78,6 +78,11 @@
         ok 2
         secure 3
     }
+    
+    # If HTTPS isn't available, we can't require secure authentication
+    if { ![security::https_available_p] } {
+        set levelv(secure) 2
+    }
 
     # Check if auth_level is sufficiently high
     if { $levelv([ad_conn auth_level]) < $levelv($level) } {