Index: openacs-4/contrib/packages/project-manager/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit.tcl,v
diff -u -r1.12.2.3 -r1.12.2.4
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	13 Dec 2003 01:19:54 -0000	1.12.2.3
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	10 Jan 2004 01:04:02 -0000	1.12.2.4
@@ -125,7 +125,7 @@
     if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} {
         ad_form -extend -name add_edit -form {
             {category_ids:integer(category),multiple,optional {label "Categories"}
-                {html {size 4}} {value {$package_id $package_id}}
+                {html {size 4}} {value {}}
             }
         }
     }
@@ -164,6 +164,8 @@
         set project_id [db_exec_plsql new_project_item { *SQL* }]
         set project_item_id [db_string get_item_id { }]
 
+        category::map_object -remove_old -object_id $project_item_id $category_ids
+
         if {$use_project_customizations_p} {
             ad_returnredirect "add-edit-2?[export_url_vars project_item_id project_id]"
             ad_script_abort