Index: openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	14 Aug 2003 16:06:20 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	15 Aug 2003 11:02:16 -0000	1.2
@@ -1,16 +1,23 @@
-# @input message_key:multiple 
+# @input message_key
 # @input package_key
 #
 # @author Peter Marklund (peter@collaboraid.biz)
 # @author Lars Pind (lars@collaboraid.biz)
 # @cvs-id $Id$
 
-set full_key_pattern "${package_key}.([join $message_key "|"])"
+set full_key "$package_key.$message_key"
 
+# LARS: Hack to handle acs-lang.localization- messages
+if { [string match "acs-lang.localization-*" $full_key] } {
+    set grepfor "${full_key}|lc_get \[\"\{\]?[string range $message_key [string length "localization-"] end]\[\"\}\]?"
+} else {
+    set grepfor ${full_key}
+}
+
 multirow create message_usage file code
 
 with_catch errmsg {
-    exec find [acs_root_dir] -type f -regex ".*\\.\\(info\\|adp\\|sql\\|tcl\\)" -follow | xargs egrep "${full_key_pattern}" 2>/dev/null
+    exec find [acs_root_dir] -type f -regex ".*\\.\\(info\\|adp\\|sql\\|tcl\\)" -follow | xargs egrep "$grepfor" 2>/dev/null
 } {
     #error "find [acs_root_dir] -type f -regex \".*\\.\\(info\\|adp\\|sql\\|tcl\\)\" -follow | xargs egrep \"${full_key_pattern}\""
     global errorInfo