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.9 -r1.10
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	14 Jan 2003 00:43:23 -0000	1.9
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	7 Feb 2003 00:14:15 -0000	1.10
@@ -344,7 +344,10 @@
 }
 
 
-ad_proc -public template::util::multirow_to_list { name } {
+ad_proc -public template::util::multirow_to_list { 
+    {-level 1}
+    name 
+} {
     generate a list structure representitive of a multirow data source
 
     @param name the name of an existing multirow data source
@@ -355,13 +358,14 @@
     @see proc template::util::list_to_multirow
 } {
 
-  upvar $name:rowcount rowcount
+  upvar $level $name:rowcount rowcount
 
   set rows [list]
 
   for { set i 1 } { $i <= $rowcount } { incr i } {
 
-    upvar $name:$i row
+    upvar $level $name:$i row
+
     lappend rows [array get row]
   }