Index: openacs-4/packages/acs-lang/www/admin/lookups.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/lookups.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/lookups.adp	11 Aug 2003 16:44:44 -0000	1.1
@@ -0,0 +1,7 @@
+<master src="master">
+ <property name="title">Message Key Usage</property>
+
+Message key usage for key @message_key_list@:
+<pre>
+@message_key_context@
+</pre>
Index: openacs-4/packages/acs-lang/www/admin/lookups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/lookups.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/admin/lookups.tcl	11 Aug 2003 16:44:44 -0000	1.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+    Display message key usage.
+
+    @author Peter Marklund
+} {
+    message_key_list
+    package_key
+}
+
+set full_key_pattern "${package_key}.([join $message_key_list "|"])"
+
+set message_key_context ""
+if { [catch {set message_key_context [exec find [acs_root_dir] -type f -regex ".*\\.\\(info\\|adp\\|sql\\|tcl\\)" | xargs egrep "${full_key_pattern}"]} error] } {
+    global errorInfo
+    regexp "^(.*)child process exited abnormally" $errorInfo match message_key_context
+    set message_key_context [ad_quotehtml $message_key_context]
+    regsub -all "${full_key_pattern}" $message_key_context {<b>\0</b>} message_key_context
+}