Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 30 Sep 2003 10:10:24 -0000 1.31 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 1 Oct 2003 14:51:29 -0000 1.32 @@ -421,8 +421,8 @@ incr message_key_num } - # LARS: Trying new translator more -- encode the key in the page - set message "$message\x002\[\x001$key\x001\]\x002" + # encode the key in the page + set message "$message\x002(\x001$key\x001)\x002" } } Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 30 Sep 2003 10:06:25 -0000 1.9 +++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 1 Oct 2003 14:51:41 -0000 1.10 @@ -111,15 +111,15 @@ if { [lang::util::translator_mode_p] } { # Attempt to move all message keys outside of tags - while { [regsub -all {(<[^>]*)(\x002\[\x001[^\x001]*\x001\]\x002)([^>]*>)} $parsed_template {\2\1\3} parsed_template] } {} + while { [regsub -all {(<[^>]*)(\x002\(\x001[^\x001]*\x001\)\x002)([^>]*>)} $parsed_template {\2\1\3} parsed_template] } {} # Attempt to move all message keys outside of statements - regsub -all -nocase {(]*>[^<]*)(\x002\[\x001[^\x001]*\x001\]\x002)([^<]*]*>)} $parsed_template {\2\1\3} parsed_template + regsub -all -nocase {(]*>[^<]*)(\x002\(\x001[^\x001]*\x001\)\x002)([^<]*]*>)} $parsed_template {\2\1\3} parsed_template - while { [regsub -all -nocase {(]*>[^<]*)(\x002\[\x001[^\x001]*\x001\]\x002)} $parsed_template {\2\1} parsed_template] } {} + while { [regsub -all -nocase {(]*>[^<]*)(\x002\(\x001[^\x001]*\x001\)\x002)} $parsed_template {\2\1} parsed_template] } {} set start 0 - while { [regexp -nocase -indices -start $start {(... - while { [regexp -indices {\x002\[\x001([^\x001]*)\x001\]\x002} $parsed_template indices key] } { + while { [regexp -indices {\x002\(\x001([^\x001]*)\x001\)\x002} $parsed_template indices key] } { set before [string range $parsed_template 0 [expr [lindex $indices 0] - 1]] set after [string range $parsed_template [expr [lindex $indices 1] + 1] end]