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 -N -r1.12.2.1 -r1.12.2.2
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	4 Dec 2003 21:00:13 -0000	1.12.2.1
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	5 Dec 2003 01:09:19 -0000	1.12.2.2
@@ -107,10 +107,28 @@
             {label "Status"}
             {options {[db_list_of_lists get_status_codes { }]}}
         }
-        
+
     }
 
 
+if {[exists_and_not_null project_id]} {
+    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 {$project_item_id $package_id}}
+            }
+        }
+    }
+} else {
+    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}}
+            }
+        }
+    }
+}
+
 if {$use_goal_p} {
     ad_form -extend -name add_edit \
         -form {
@@ -151,7 +169,9 @@
         
         set project_id [db_exec_plsql new_project_revision { *SQL* }]
         project_manager::project::compute_parent_status $project_item_id
-        
+ 
+        category::map_object -remove_old -object_id $project_item_id $category_ids
+       
     } -after_submit {
         
         ad_returnredirect "one?[export_url_vars project_id]"