Index: openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql	14 Jul 2004 17:51:07 -0000	1.6
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql	24 Jul 2004 08:33:54 -0000	1.7
@@ -72,12 +72,15 @@
 
   <fullquery name="pm::project::compute_status.select_project_children">
     <querytext>
-        select
-        item_id, 
-        content_type 
-        from 
-        cr_items 
-        where parent_id = :project_item_id
+        SELECT
+        i.item_id, 
+        i.content_type 
+        FROM
+        cr_items i,
+        pm_tasks_active t
+        WHERE
+        i.item_id   = t.task_id and
+        i.parent_id = :project_item_id
     </querytext>
   </fullquery>
 
@@ -88,8 +91,11 @@
         sum(t.estimated_hours_work) as estimated_hours_total,
         to_char(current_timestamp,'J') as today_j
         from
-        pm_tasks_revisionsx t, cr_items i
+        pm_tasks_revisionsx t, 
+        cr_items i,
+        pm_tasks_active a
         where
+        i.item_id = a.task_id and
         t.item_id in ([join $task_list ", "]) and
         i.live_revision = t.revision_id
     </querytext>
@@ -112,7 +118,7 @@
         from
         pm_tasks_revisionsx t, 
         cr_items i,
-        pm_tasks ti,
+        pm_tasks_active ti,
         pm_task_status s
         where
         t.item_id in ([join $task_list ", "]) and