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.32 -r1.33
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl 12 Jul 2004 14:49:56 -0000 1.32
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl 24 Jul 2004 08:34:10 -0000 1.33
@@ -65,6 +65,7 @@
set header_img_file "[acs_root_dir]/packages/dotlrn/www/resources/logo"
set header_img_alt_text "Header Logo"
+set extra_spaces ""
set td_align "align=\"center\" valign=\"top\""
if {[dotlrn::user_p -user_id $user_id]} {
@@ -300,18 +301,33 @@
}
if { $make_navbar_p } {
+ if {$link_control_panel} {
+ set link_control_panel 1
+ } else {
+ set link_control_panel 0
+ }
+ set extra_spaces ""
set navbar [dotlrn::portal_navbar \
- -user_id $user_id \
- -link_control_panel [template::util::is_true $link_control_panel] \
- -control_panel_text $control_panel_text \
- -link_all $link_all]
+ -user_id $user_id \
+ -link_control_panel $link_control_panel \
+ -control_panel_text $control_panel_text \
+ -pre_html "$extra_spaces" \
+ -post_html $extra_spaces \
+ -link_all $link_all
+ ]
+} else {
+ set navbar "
"
}
if { ![info exists header_stuff] } {
set header_stuff ""
}
+if { [info exists text] } {
+ set text [lang::util::localize $text]
+}
+
# This style sheet should be moved over to an external file for performance
append header_stuff "