Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	21 Sep 2001 21:49:55 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	22 Feb 2002 19:04:03 -0000	1.5
@@ -404,6 +404,32 @@
   }
 }
 
+ad_proc -public template::util::list_of_ns_sets_to_multirow {
+    {-rows:required}
+    {-var_name:required}
+    {-level "1"}
+} {
+    Transform a list of ns_sets (most likely produced by db_list_of_ns_sets
+    into a multirow datasource.
+
+    @param rows The data to be transformed
+    @param var_name The name of the multirow to create
+    @param level How many levels up the stack to place the new datasource,
+                 defaults to 1 level up.
+} {
+    upvar $level $var_name:rowcount rowcount
+    set rowcount [llength $rows]
+
+    set i 1
+    foreach row_set $rows {
+        ns_set put $row_set rownum $i
+
+        upvar $level $var_name:$i row
+        array set row [util_ns_set_to_list -set $row_set]
+        incr i
+    }
+}
+
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 # * Utility procedures for interacting with the file system *
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *