Index: openacs-4/contrib/packages/project-manager/www/admin/update-projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/admin/Attic/update-projects.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/contrib/packages/project-manager/www/admin/update-projects.tcl 2 May 2005 18:30:12 -0000 1.1.2.4
+++ openacs-4/contrib/packages/project-manager/www/admin/update-projects.tcl 12 May 2005 07:34:17 -0000 1.1.2.5
@@ -19,17 +19,21 @@
set context_id [ad_conn package_id]
set peeraddr [ad_conn peeraddr]
+set package_id [ad_conn package_id]
ns_write "[_ project-manager.lt_Updating_projects_and]
[_ project-manager.Starting]"
-set projects_list [db_list get_projects "select item_id from cr_items where content_type = 'pm_project'"]
+set projects_list [db_list get_projects "select i.item_id from cr_items i, cr_folders f where i.content_type = 'pm_project' and i.parent_id = f.folder_id and f.package_id = :package_id"]
foreach project $projects_list {
pm::project::compute_status $project
ns_write ". "
+
+ # Update the context_ids so inheritance starts from the package_id.
+ db_dml update_context_ids "update acs_objects set context_id = :package_id where object_id = :project"
}