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.6 -r1.7
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	1 Feb 2004 19:12:51 -0000	1.6
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	6 Feb 2004 14:06:52 -0000	1.7
@@ -181,13 +181,14 @@
 	Get the category trees mapped to an object.
 
 	@param object_id object to get the mapped category trees.
-	@return tcl list of lists: tree_id tree_name subtree_category_id assign_single_p
+	@return tcl list of lists: tree_id tree_name subtree_category_id
+	            assign_single_p require_category_p
 	@author Timo Hentschel (timo@timohentschel.de)
     } {
 	set result [list]
 
 	db_foreach get_mapped_trees "" {
-	    lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p]
+	    lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p $require_category_p]
 	}
 
 	return $result