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]} {