Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v diff -u -N -r1.94.6.11 -r1.94.6.12 --- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 15 Oct 2014 10:59:01 -0000 1.94.6.11 +++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl 15 Oct 2014 12:32:29 -0000 1.94.6.12 @@ -224,14 +224,13 @@ -container_object_id $package_id \ -categorized_object_id $coid -# This portion is disabled because relies on -# a little change for the categories package -# that hasn't been decided yet. -# append edit_request { -# category::ad_form::fill_form_widgets \ -# -container_object_id $package_id \ -# -categorized_object_id $item_id -# } + # When editing, fill category form widgets + # with current mappings for this object + append edit_request { + category::ad_form::fill_widgets \ + -container_object_id $package_id \ + -categorized_object_id $item_id + } append new_data { category::map_object -remove_old -object_id $item_id $category_ids }