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.16 -r1.17
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	12 Mar 2004 13:44:44 -0000	1.16
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	27 Apr 2004 00:49:29 -0000	1.17
@@ -134,15 +134,15 @@
 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"}
+            {category_ids:integer(category),multiple {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"}
+            {category_ids:integer(category),multiple {label "Categories"}
                 {html {size 4}} {value {}}
             }
         }
@@ -256,7 +256,6 @@
         
         set project_item_id [pm::project::get_project_item_id \
                             -project_id $project_id]
-        pm::project::compute_parent_status $project_item_id
  
 
         if {[exists_and_not_null category_ids]} {
@@ -266,9 +265,11 @@
 
         if {$use_project_customizations_p} {
             ad_returnredirect "add-edit-2?[export_url_vars project_id old_project_id]"
+            pm::project::compute_parent_status $project_item_id
             ad_script_abort
         } else {
             ad_returnredirect "one?[export_url_vars project_id]"
+            pm::project::compute_parent_status $project_item_id
             ad_script_abort
         }
 }