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 -N -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 { + + }] } 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 { + + }] } 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 { + + }] } else { - append subnavbar "\n
  • [_ dotlrn.Admin]
  • " + append subnavbar [subst { +
  • + [_ dotlrn.Admin] +
  • + }] } } if { $subnavbar eq "" } { return "" } else { - return "\n" + return "\n" } } }