Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -r1.104.2.2 -r1.104.2.3
--- openacs-4/packages/dotlrn/dotlrn.info 2 Mar 2003 22:40:18 -0000 1.104.2.2
+++ openacs-4/packages/dotlrn/dotlrn.info 13 Mar 2003 18:03:00 -0000 1.104.2.3
@@ -538,7 +538,7 @@
-
+
Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v
diff -u -r1.9.2.6 -r1.9.2.7
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl 13 Mar 2003 13:17:34 -0000 1.9.2.6
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl 13 Mar 2003 18:03:00 -0000 1.9.2.7
@@ -68,7 +68,6 @@
set extra_spaces ""
set td_align "align=\"center\" valign=\"top\""
-
if {[dotlrn::user_p -user_id $user_id]} {
set portal_id [dotlrn::get_portal_id -user_id $user_id]
}
@@ -119,8 +118,10 @@
}
if {$have_comm_id_p} {
- # We are under a dotlrn package instance
+ # in a community or just under one in a mounted package like /calendar
# get this comm's info
+ set control_panel_text "Administer"
+
set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
set text [dotlrn_community::get_community_header_name $community_id]
set link [dotlrn_community::get_community_url $community_id]
@@ -139,6 +140,8 @@
set portal_id ""
}
} elseif {[parameter::get -parameter community_type_level_p] == 1} {
+ set control_panel_text "Administer"
+
set extra_td_html ""
set link_all 1
set link [dotlrn::get_url]
@@ -154,6 +157,7 @@
}
} else {
# we could be anywhere (maybe under /dotlrn, maybe not)
+ set control_panel_text "My Account"
set link "[dotlrn::get_url]/"
set community_id ""
set text ""
@@ -175,7 +179,7 @@
set navbar [dotlrn::portal_navbar \
-user_id $user_id \
-link_control_panel $link_control_panel \
- -control_panel_text "Control Panel" \
+ -control_panel_text $control_panel_text \
-pre_html "$extra_spaces" \
-post_html $extra_spaces \
-link_all $link_all