Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.118.2.53 -r1.118.2.54 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 25 Jul 2017 09:49:58 -0000 1.118.2.53 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 21 May 2019 11:17:00 -0000 1.118.2.54 @@ -754,7 +754,7 @@ ad_conn -set package_key $node(package_key) ad_conn -set package_url $node(url) ad_conn -set instance_name $node(instance_name) - ad_conn -set extra_url [string range $ad_conn_url [string length $node(url)] end] + ad_conn -set extra_url [string trimleft [string range $ad_conn_url [string length $node(url)] end] /] } ##### @@ -826,7 +826,7 @@ ##### if { [ad_conn object_id] ne "" } { ad_try { - switch -glob -- [ad_conn extra_url] { + switch -nocase -glob -- [ad_conn extra_url] { admin/* { # double check someone has not accidentally granted # admin to public and require logins for all admin pages