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 -r1.20 -r1.20.2.1
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	21 Dec 2006 11:52:25 -0000	1.20
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	27 May 2007 19:40:24 -0000	1.20.2.1
@@ -214,7 +214,22 @@
 
         return $result
     }
+    ad_proc -public get_trees { object_id } {
+        Get the category trees mapped to an object.
 
+        @param object_id object to get the mapped category trees.
+        @return tcl list of tree_ids
+        @author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at)
+    } {
+        set result [list]
+
+        db_foreach get_trees "" {
+            lappend result $tree_id
+        }
+
+        return $result
+    }
+
     ad_proc -public get_mapped_trees_from_object_list { object_id_list {locale ""}} {
         Get the category trees mapped to a list of objects.