Index: openacs-4/packages/theme-zen/tcl/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/tcl/navigation-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 7 Oct 2007 22:37:05 -0000 1.3 +++ openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 9 Nov 2008 23:29:28 -0000 1.4 @@ -62,7 +62,7 @@ -object_id [dotlrn::get_package_id] \ -privilege admin] if { $dotlrn_admin_p } { - set dotlrn_admin_url "${dotlrn_url}/admin/" + set dotlrn_admin_url [dotlrn::get_admin_url] } if { $sw_admin_p } { @@ -103,7 +103,7 @@ } if { $dotlrn_admin_p } { - lappend tabs_list [list $dotlrn_admin_url #dotlrn.Administration# #dotlrn.Administration_Accesskey#] + lappend tabs_list [list $dotlrn_admin_url #dotlrn.Administration# 9] if { [string first $dotlrn_admin_url $current_url] != -1 } { set which_tab_selected $which_tab } @@ -272,9 +272,9 @@ if { $community_id ne "" && $admin_p } { if {[string match "*/one-community-admin*" [ad_conn url]]} { - append subnavbar "\n
  • [_ theme-zen.admin]
  • " + append subnavbar "\n
  • [_ dotlrn.Admin]
  • " } else { - append subnavbar "\n
  • [_ theme-zen.admin]
  • " + append subnavbar "\n
  • [_ dotlrn.Admin]
  • " } }