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.11 -r1.6.2.12
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	5 Nov 2004 01:25:06 -0000	1.6.2.11
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	5 Nov 2004 21:08:05 -0000	1.6.2.12
@@ -757,12 +757,7 @@
         set old_EF_j($my_iid) $old_earliest_finish_j
         set old_LS_j($my_iid) $old_latest_start_j
         set old_LF_j($my_iid) $old_latest_finish_j
-        # set old_task_status($my_iid) $status_type
 
-        if {[string is true $debug]} {
-            # ns_log Notice "old_task_status: $my_iid $status_type (o=open, c=closed)"
-        }
-
         set activity_time($my_iid) [expr [expr $to_work * [expr 100 - $my_percent_complete] / 100]]
 
         if {[exists_and_not_null task_deadline_j]} {
@@ -1483,10 +1478,7 @@
                  [string equal $lf $old_LF_j($task_item)]} {
             # do nothing
         } else {
-            # if the task is open...
-            #if {[string equal "o" $old_task_status($task_item)]} {
             db_dml update_task { }
-            #}
         }