Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.99 -r1.100
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 20 Jul 2007 13:32:07 -0000 1.99
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 25 Sep 2007 15:22:38 -0000 1.100
@@ -2072,9 +2072,13 @@
ns_write "
+
- If your browser does not automatically redirect you, please go here.
+ Loading...
+ If your browser does not automatically redirect you, please click here.
"
}
@@ -2204,6 +2208,11 @@
set user_agent [ns_set get [ad_conn headers] User-Agent]
set use_metarefresh_p [regexp -nocase "msie 5.0" $user_agent match]
}
+ if {[string match "https://*" [ad_conn location]] && [string match "http://*" $url]} {
+ # workaround the You are about to be redirected to a connection that
+ # is not secure bug in IE
+ set use_metarefresh_p 1
+ }
if { $use_metarefresh_p != 0 } {
util_ReturnMetaRefresh $url
} else {