Index: openacs-4/packages/acs-lang/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/index.adp,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-lang/www/admin/index.adp	18 Sep 2003 09:14:47 -0000	1.12
+++ openacs-4/packages/acs-lang/www/admin/index.adp	24 Sep 2003 17:20:54 -0000	1.13
@@ -13,6 +13,10 @@
   <b>&raquo;</b> <a href="@parameter_url@">Change system locale</a>: Current system locale is <b>@system_locale_label@ [ @system_locale@ ]</b>
 </p>
 
+<p>
+  <b>&raquo;</b> <a href="lookup">Look up message</a>
+</p>
+
 <if @timezone_p@>
   <p>
     <b>&raquo;</b> <a href="set-system-timezone">Change system timezone</a>: Current system timezone is <b>@timezone@</b>
Index: openacs-4/packages/acs-lang/www/admin/lookup.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/lookup.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/lookup.adp	24 Sep 2003 17:20:54 -0000	1.1
@@ -0,0 +1,19 @@
+<master>
+  <property name="title">@page_title@</property>
+  <property name="context">@context;noquote@</property>
+  <property name="focus">lookup.key</property>
+
+<formtemplate id="lookup"></formtemplate>
+
+<if @message_p@ true>
+  <h2>Translated Message</h2>
+  <if @message@ nil><p><i>blank</i></if>
+  <else><p>@message@</p></else>
+</if>
+
+<if @edit_url@ not nil>
+  <p>
+    <b>&raquo;</b> <a href="@edit_url@">Edit this message</a>
+  </p>
+</if>
+
Index: openacs-4/packages/acs-lang/www/admin/lookup.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/lookup.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/lookup.tcl	24 Sep 2003 17:20:54 -0000	1.1
@@ -0,0 +1,32 @@
+ad_page_contract {
+    Test message lookup
+}
+
+set page_title "Test Message Lookup"
+set context [list $page_title]
+
+set message_p 0
+
+ad_form -name lookup -form {
+    {key:text
+        {label "Message key"}
+        {help_text "Include package key, as in package-key.message-key"}
+        {html {size 50}}
+    }
+    {locale:text 
+        {label "Locale"}
+        {help_text "Can be two-character for language only or five-character full locale"}
+    }
+} -on_submit {
+    # No substitution
+    set message [lang::message::lookup $locale $key {} {} 0]
+    
+    set keyv [split $key "."]
+    set package_key [lindex $keyv 0]
+    set message_key [lindex $keyv 1]
+
+    set edit_url [export_vars -base edit-localized-message { package_key locale message_key {return_url [ad_return_url]} }]
+
+    set message_p 1
+}
+