Index: openacs-4/packages/theme-zen/lib/lrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/lib/lrn-master.tcl,v
diff -u -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/theme-zen/lib/lrn-master.tcl 13 Jun 2008 09:40:50 -0000 1.10.2.2
+++ openacs-4/packages/theme-zen/lib/lrn-master.tcl 17 Oct 2008 08:49:48 -0000 1.10.2.3
@@ -5,6 +5,8 @@
set community_id [dotlrn_community::get_community_id]
set dotlrn_url [dotlrn::get_url]
+set sitemap_url "$dotlrn_url/site-map"
+
#----------------------------------------------------------------------
# Display user messages
#----------------------------------------------------------------------
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.2.1 -r1.3.2.2
--- openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 21 May 2008 17:59:19 -0000 1.3.2.1
+++ openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 17 Oct 2008 08:49:48 -0000 1.3.2.2
@@ -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 } {
@@ -272,9 +272,9 @@
if { $community_id ne "" && $admin_p } {
if {[string match "*/one-community-admin*" [ad_conn url]]} {
- append subnavbar "\n