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 {(]*>)} $parsed_template {\2\1\3} parsed_template
+ regsub -all -nocase {(]*>)} $parsed_template {\2\1\3} parsed_template
- while { [regsub -all -nocase {(