Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 7 Dec 2007 14:25:04 -0000 1.45
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 12 Dec 2007 18:00:01 -0000 1.46
@@ -1167,7 +1167,11 @@
set location_val [$location value]
set location_txt ""
if {$location_val ne ""} {
- set location_txt "[$location label]: $location_val"
+ set location_label [$location label]
+ if {[regexp {^#(.+)#$} $location_label _ msg_key]} {
+ set location_label [lang::message::lookup [my locale] $msg_key]
+ }
+ set location_txt "$location_label: $location_val"
}
append result \