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.19 -r1.20
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	2 Jul 2004 22:18:16 -0000	1.19
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	14 Jul 2004 17:51:07 -0000	1.20
@@ -241,7 +241,17 @@
     # with the logger project)
     set project_revision [db_exec_plsql new_project_item { *SQL }]
 
+    set project_item_id [pm::project::get_project_item_id \
+                             -project_id $project_revision]
 
+    set project_role [pm::role::default]
+
+    pm::project::assign \
+        -project_item_id $project_item_id \
+        -role_id $project_role \
+        -party_id $creation_user \
+        -send_email_p "f"
+
     return $project_revision
 }
 
@@ -762,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]} {