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.2.3 -r1.16.2.4
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	13 Aug 2004 18:57:34 -0000	1.16.2.3
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	16 Sep 2004 19:35:52 -0000	1.16.2.4
@@ -306,11 +306,15 @@
         if {$use_project_customizations_p} {
             # warn of current bug so users can work around it
             ad_returnredirect -message "You must submit changes on this page or you will lose any data on this page" "add-edit-2?[export_url_vars project_id old_project_id]"
-            pm::project::compute_parent_status $project_item_id
+            # to add back in subproject support, should use
+            # compute_parent_status
+            pm::project::compute_status $project_item_id
             ad_script_abort
         } else {
             ad_returnredirect -message "Changes to project saved" "one?[export_url_vars project_id]"
-            pm::project::compute_parent_status $project_item_id
+            # to add back in subproject support, should use
+            # compute_parent_status
+            pm::project::compute_status $project_item_id
             ad_script_abort
         }
 }