Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-templating/tcl/parse-procs.tcl 28 Oct 2002 12:34:22 -0000 1.9 +++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl 5 Nov 2002 17:03:41 -0000 1.10 @@ -401,9 +401,8 @@ # Since messages may read the variables of the adp page they go trough # expand_percentage_signs which amongst other things does an uplevel subst + while {[regsub -all {([^\\])\#([-a-zA-Z0-9_:\.]+)\#} $code {\1[template::expand_percentage_signs [lang::message::lookup [ad_conn locale] {\2} {TRANSLATION MISSING} {} -1]]} code]} {} - while {[regsub -all {([^\\])\#([-a-zA-Z0-9_:\.]+)\#} $code {\1[template::expand_percentage_signs [_ [ad_conn locale] {\2}]]} code]} {} - # substitute array variable references # loop to handle the case of adjacent variable references, like @a@@b@ while {[regsub -all [template::adp_array_variable_regexp] $code {\1$\2(\3)} code]} {}