By Richard Li
OpenACS docs are written by the named authors, and may be edited
by OpenACS documentation staff.
@@ -24,11 +25,11 @@
procedure defined in security-procs.tcl:
if { [ad_secure_conn_p] && ![ad_login_page] } {
- set s_token_cookie [ns_urldecode [ad_get_cookie "ad_secure_token"]]
+ set s_token_cookie [ns_urldecode [ad_get_cookie "ad_secure_token"]]
if { [empty_string_p $s_token_cookie] || [string compare $s_token_cookie [lindex [sec_get_session_info $session_id] 2]] != 0 } {
# token is incorrect or nonexistent, so we force relogin.
- ad_returnredirect "/register/index?return_url=[ns_urlencode [ad_conn url]?[ad_conn query]]"
+ ad_returnredirect "/register/index?return_url=[ns_urlencode [ad_conn url]?[ad_conn query]]"
}
}
@@ -43,7 +44,7 @@
} {
set url [ad_conn url]
- if { [string match "*register/*" $url] || [string match "/index*" $url] } {
+ if { [string match "*register/*" $url] || [string match "/index*" $url] } {
return 1
}