Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	3 Jun 2004 20:28:48 -0000	1.12
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	29 Jun 2004 10:17:52 -0000	1.13
@@ -231,6 +231,23 @@
         return $result
     }
 
+    ad_proc -public get_mapped_trees_from_object_list { object_id_list } {
+        Get the category trees mapped to a list of objects.
+
+        @param object_id_list list of object to get the mapped category trees.
+        @return tcl list of lists: tree_id tree_name subtree_category_id
+                assign_single_p require_category_p
+        @author Jade Rubick (jader@bread.com)
+    } {
+        set result [list]
+
+        db_foreach get_mapped_trees_from_object_list "" {
+            lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p $require_category_p]
+        }
+
+        return $result
+    }
+
     ad_proc -public get_tree {
         -all:boolean
         {-subtree_id ""}