Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	27 Feb 2005 22:45:39 -0000	1.36
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	5 Jun 2005 19:19:15 -0000	1.37
@@ -754,3 +754,23 @@
     }
 }
 
+ad_proc -public lang::util::convert_from_hash {
+    {-hashed_key:required}
+} {
+    Converts a string with #message_key# syntax to something that can
+    be used in select boxes
+    
+    @author Malte Sussdorff (sussdorff@sussdorff.de)
+    @creation-date 2005-06-05
+    
+    @param hashed_key
+
+    @return 
+    
+    @error 
+} {
+    
+    regsub -all {(\#([-a-zA-Z0-9_:\.]+)\#)} $hashed_key {[lang::message::lookup [ad_conn locale] {\2}]} hashed_key
+    return [subst $hashed_key]
+    
+}