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.4.2.1 -r1.4.2.2
--- openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql	20 May 2004 17:30:04 -0000	1.4.2.1
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql	8 Jul 2004 21:31:41 -0000	1.4.2.2
@@ -107,6 +107,7 @@
         to_char(earliest_finish,'J') as old_earliest_finish_j,
         to_char(latest_start,'J') as old_latest_start_j,
         to_char(latest_finish,'J') as old_latest_finish_j,
+        t.percent_complete as my_percent_complete,
         s.status_type
         from
         pm_tasks_revisionsx t, 
Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.6.2.4 -r1.6.2.5
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	7 Jul 2004 23:41:56 -0000	1.6.2.4
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	8 Jul 2004 21:31:41 -0000	1.6.2.5
@@ -772,7 +772,7 @@
             ns_log Notice "old_task_status: $my_iid $status_type (o=open, c=closed)"
         }
 
-        set activity_time($my_iid) [expr $to_work - $worked]
+        set activity_time($my_iid) [expr [expr $to_work * [expr 100 - $my_percent_complete] / 100]]
 
         if {[exists_and_not_null task_deadline_j]} {