Index: openacs-4/packages/theme-selva/tcl/selva-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/tcl/selva-procs.tcl,v diff -u -r1.5.2.9 -r1.5.2.10 --- openacs-4/packages/theme-selva/tcl/selva-procs.tcl 23 May 2006 23:05:45 -0000 1.5.2.9 +++ openacs-4/packages/theme-selva/tcl/selva-procs.tcl 13 Nov 2006 23:12:08 -0000 1.5.2.10 @@ -132,6 +132,7 @@ dotlrn-master template } { +ns_log Notice "Huh? in portal_subnavbar ..." set dotlrn_url [dotlrn::get_url] set community_id [dotlrn_community::get_community_id] set control_panel_name control-panel @@ -144,7 +145,7 @@ set link "[dotlrn::get_url]/" if {[dotlrn::user_p -user_id $user_id] && - ($link eq [ad_conn url] || "${link}index" eq [ad_conn url]) } { + [string first $link [ad_conn url]] != -1 } { # this user is a dotlrn user, show their personal portal # subnavbar, including the control panel link set portal_id [dotlrn::get_portal_id -user_id $user_id]