Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -r1.39 -r1.40 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 14 Jul 2006 18:22:17 -0000 1.39 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 15 Dec 2006 00:02:00 -0000 1.40 @@ -478,7 +478,6 @@ return [security::secure_conn_p] } - ad_proc -private sec_allocate_session {} { Returns a new session id @@ -1492,8 +1491,8 @@ set secure_location $current_location } else { # Current location is insecure - get location from config file - set secure_location [ad_conn location] - # Prefix with https + set secure_location [ad_conn location] + # Prefix with https regsub {^(?:http://)?} $secure_location {https://} secure_location # remove port number if using nonstandard port