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.21
--- 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	28 Aug 2007 16:30:03 -0000	1.21
@@ -32,6 +32,7 @@
         {-subtree_category_id ""}
         {-assign_single_p f}
         {-require_category_p f}
+        {-widget ""}
     } {
         Map a category tree to a package (or other object).
 
@@ -67,6 +68,7 @@
         -object_id:required
         {-assign_single_p f}
         {-require_category_p f}
+        {-widget ""}
     } {
         Edit the parameters of a mapped category tree.
 
@@ -209,7 +211,7 @@
         set result [list]
 
         db_foreach get_mapped_trees "" {
-            lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p]
+            lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p $widget]
         }
 
         return $result
@@ -221,36 +223,18 @@
         @param object_id_list list of object to get the mapped category trees.
         @param locale language in which to get the name. [ad_conn locale] used by default.
         @return tcl list of lists: tree_id tree_name subtree_category_id
-                    assign_single_p require_category_p
+                    assign_single_p require_category_p widget
         @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 $locale] $subtree_category_id $assign_single_p $require_category_p]
+            lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p $widget]
         }
 
         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.
-
-        @param object_id_list list of object to get the mapped category trees.
-        @param locale language in which to get the name. [ad_conn locale] used by default.
-        @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 $locale] $subtree_category_id $assign_single_p $require_category_p]
-        }
-
-        return $result
-    }
-
     ad_proc -public get_tree {
         -all:boolean
         {-subtree_id ""}