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 -N -r1.39 -r1.40
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	7 Jun 2005 06:49:49 -0000	1.39
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	21 Jun 2005 10:47:11 -0000	1.40
@@ -785,3 +785,19 @@
     return "#${package_key}.${message_key}#"
 }
 
+ad_proc -public lang::util::localize_list_of_lists {
+    {-list}
+} {
+    localize the elements of a list_of_lists
+} {
+    set list_output [list]
+    foreach item $list {
+	set item_output [list]
+	foreach part $item {
+	    lappend item_output [lang::util::localize $part]
+	}
+	lappend list_output $item_output
+    }
+    return $list_output
+}
+