Index: openacs-4/packages/acs-lang/www/admin/test/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/Attic/index.html,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/test/index.html	7 Oct 2002 14:32:49 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/test/index.html	30 Sep 2003 10:08:00 -0000	1.2
@@ -18,5 +18,7 @@
 <p>
 <li><a href=show-catalog>List Message Catalog Data</a>
 <p>
+<li><a href="translator-mode">Translator mode test page</a>
+<p>
 
 </ul>
Index: openacs-4/packages/acs-lang/www/admin/test/translator-mode.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/Attic/translator-mode.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/test/translator-mode.adp	30 Sep 2003 10:08:00 -0000	1.1
@@ -0,0 +1,26 @@
+<master>
+
+<p>
+  Tcl message: @tcl_message@
+</p>
+
+<p>
+  ADP Message: #acs-lang.Spanish#
+</p>
+
+<p>
+  Form:
+  <formtemplate id="test"></formtemplate>
+</p>
+
+<p>
+  In an HTML attribute: <a href="#" title="#acs-lang.English#">#acs-lang.Spanish#</a>
+</p>
+
+<p>
+  Two HTML attributes: <a href="#" title="#acs-lang.English#" alt="#acs-lang.German#">#acs-lang.Spanish#</a>
+</p>
+
+<p>
+  Message inside a message: @complete_message@
+</p>
Index: openacs-4/packages/acs-lang/www/admin/test/translator-mode.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/Attic/translator-mode.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/test/translator-mode.tcl	30 Sep 2003 10:08:00 -0000	1.1
@@ -0,0 +1,37 @@
+ad_page_contract {
+    Testing translator mode.
+}
+
+set tcl_message [_ acs-lang.French]
+
+set options [list]
+
+foreach elm { English French German Spanish } {
+    lappend options [list [_ acs-lang.$elm] $elm]
+}
+
+ad_form -name test -form {
+    {lang:text(select)
+        {label Language}
+        {options $options}
+    }
+    {lang2:text(select)
+        {label Language}
+        {options $options}
+    }
+}
+
+lang::message::register \
+    en_US \
+    acs-lang \
+    Test_Contained_Message \
+    "Contains message %contained_message% inside of it."
+
+lang::message::register \
+    [ad_conn locale] \
+    acs-lang \
+    Test_Contained_Message \
+    "Contains message %contained_message% inside of it."
+
+set contained_message [_ acs-lang.German]
+set complete_message [_ acs-lang.Test_Contained_Message]