Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.8 -r1.4.2.9
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	15 Jul 2004 20:31:47 -0000	1.4.2.8
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	16 Jul 2004 20:59:40 -0000	1.4.2.9
@@ -84,7 +84,7 @@
 	FROM
         pm_tasks_revisionsx r, 
         cr_items i,
-        pm_tasks t
+        pm_tasks_active t
         WHERE
         r.parent_id = :project_item_id and
         r.revision_id = i.live_revision and
@@ -577,7 +577,7 @@
 ad_proc -public pm::task::delete {
     -task_item_id:required
 } {
-    Deletes a given task
+    Marks a task deleted
     
     @author Jade Rubick (jader@bread.com)
     @creation-date 2004-03-10
@@ -588,12 +588,33 @@
     
     @error No error thrown if there is no such task.
 } {
-    db_exec_plsql delete_task "select pm_task__delete_task_item(:task_item_id)"
+    db_dml mark_delete "update pm_tasks set deleted_p = 't' where task_id = :task_item_id"
 
+    pm::project::compute_status [pm::task::project_item_id -task_item_id $task_item_id]
+
     return 1
 }
 
 
+ad_proc -public pm::task::project_item_id {
+    -task_item_id:required
+} {
+    Returns the project item id for a given task
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-07-16
+    
+    @param task_item_id
+
+    @return -1 if there is an error.
+    
+    @error 
+} {
+    return [db_string get_project_id "select parent_id from cr_items where item_id = :task_item_id" -default -1]
+}
+
+
+
 ad_proc -public pm::task::get_url {
     object_id
 } {
@@ -1185,7 +1206,7 @@
         p.party_id,
         (select one_line from pm_roles r where ta.role_id = r.role_id) as role
         FROM
-        pm_tasks ts, 
+        pm_tasks_active ts, 
         pm_tasks_revisionsx t, 
         pm_task_assignment ta,
         acs_users_all p,
@@ -1790,7 +1811,7 @@
                 FROM
                 persons u, 
                 pm_task_assignment a,
-                pm_tasks ts
+                pm_tasks_active ts
                 WHERE 
                 u.person_id = a.party_id and
                 ts.task_id = a.task_id and