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.22 -r1.23
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	7 Nov 2003 10:38:38 -0000	1.22
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	9 Jan 2004 01:27:29 -0000	1.23
@@ -427,12 +427,12 @@
   # variable references.
 
    # substitute array variable references
-  while {[regsub -all [template::adp_array_variable_regexp] $code {\1[ad_quotehtml $\2(\3)]} code]} {}
-  while {[regsub -all [template::adp_array_variable_regexp_noquote] $code {\1$\2(\3)} code]} {}
+  while {[regsub -all [template::adp_array_variable_regexp] $code {\1[ad_quotehtml [lang::util::localize $\2(\3)]]} code]} {}
+  while {[regsub -all [template::adp_array_variable_regexp_noquote] $code {\1[lang::util::localize $\2(\3)]} code]} {}
 
   # substitute simple variable references
-  while {[regsub -all [template::adp_variable_regexp] $code {\1[ad_quotehtml ${\2}]} code]} {}
-  while {[regsub -all [template::adp_variable_regexp_noquote] $code {\1${\2}} code]} {}
+  while {[regsub -all [template::adp_variable_regexp] $code {\1[ad_quotehtml [lang::util::localize ${\2}]]} code]} {}
+  while {[regsub -all [template::adp_variable_regexp_noquote] $code {\1[lang::util::localize ${\2}]} code]} {}
 
   # unescape protected # references
   # unescape protected @ references