Index: openacs-4/packages/categories/tcl/category-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-form-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/category-form-procs.tcl	1 Apr 2004 12:58:17 -0000	1.3
+++ openacs-4/packages/categories/tcl/category-form-procs.tcl	26 Jan 2005 00:27:26 -0000	1.4
@@ -14,6 +14,7 @@
     {-categorized_object_id}
     {-form_name:required}
     {-element_name "category_id"}
+    {-excluded_trees {}}
     {-help_text {}}
 } {
     For each category tree associated with this container_object_id (usually
@@ -27,6 +28,9 @@
     
     foreach tree $category_trees {
 	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p
+        if {[lsearch -exact $excluded_trees $tree_id] > -1} { 
+            continue
+        } 
 	set options ""
 	if {$assign_single_p == "f"} {
 	    set options ",multiple"