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.5 -r1.6
--- openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 27 Oct 2014 16:41:59 -0000 1.5
+++ openacs-4/packages/theme-zen/tcl/navigation-procs.tcl 19 Jun 2015 06:59:43 -0000 1.6
@@ -156,10 +156,19 @@
set which_tab 0
foreach tab_entry $tabs_list {
foreach {url name accesskey} $tab_entry {}
+ set localizedName [lang::util::localize $name]
if { $which_tab == $which_tab_selected } {
- append navbar "\n
[lang::util::localize $name]"
+ append navbar [subst {
+
+ $localizedName
+
+ }]
} else {
- append navbar "\n[lang::util::localize $name]"
+ append navbar [subst {
+
+ $localizedName
+
+ }]
}
incr which_tab
}
@@ -264,24 +273,40 @@
set subnavbar ""
db_foreach list_page_nums_select {} {
if {$page_num eq $sort_key} {
- append subnavbar "\n$pretty_name "
+ append subnavbar [subst {
+
+ $pretty_name
+
+ }]
} else {
- append subnavbar "\n$pretty_name "
+ append subnavbar [subst {
+
+ $pretty_name
+
+ }]
}
}
if { $community_id ne "" && $admin_p } {
if {[string match "*/one-community-admin*" [ad_conn url]]} {
- append subnavbar "\n[_ dotlrn.Admin]"
+ append subnavbar [subst {
+
+ [_ dotlrn.Admin]
+
+ }]
} else {
- append subnavbar "\n[_ dotlrn.Admin]"
+ append subnavbar [subst {
+
+ [_ dotlrn.Admin]
+
+ }]
}
}
if { $subnavbar eq "" } {
return ""
} else {
- return "\n"
+ return "\n"
}
}
}