Index: openacs-4/packages/xowiki/tcl/menu-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/menu-procs.tcl,v diff -u -r1.19.2.5 -r1.19.2.6 --- openacs-4/packages/xowiki/tcl/menu-procs.tcl 11 Feb 2020 21:26:30 -0000 1.19.2.5 +++ openacs-4/packages/xowiki/tcl/menu-procs.tcl 14 Feb 2020 08:05:10 -0000 1.19.2.6 @@ -316,12 +316,18 @@ if {[dict exists $properties -label]} { lappend item label [dict get $properties -label] } else { - set name [dict get $properties -name] + # + # We have not explicit label. Replace dots of menu entry + # names by dashes for message key. + # set locale [::xo::cc locale] - if {[lang::message::message_exists_p $locale xowiki.$name]} { - lappend item label [lang::message::lookup $locale xowiki.$name] - } elseif {[lang::message::message_exists_p $locale xowf.$name]} { - lappend item label [lang::message::lookup $locale xowf.$name] + set dname [string map {. -} [dict get $properties -name]] + + foreach message_key [list xowiki.menu-$dname xowf.menu-$dname] { + if {[lang::message::message_exists_p en_US $message_key]} { + lappend item label [lang::message::lookup $locale $message_key] + break + } } } :add_menu_item -name [dict get $properties -name] -item $item