Index: openacs-4/packages/tasks/tcl/tasks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/tcl/tasks-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/tasks/tcl/tasks-procs.xql	26 Oct 2005 18:54:29 -0000	1.2
+++ openacs-4/packages/tasks/tcl/tasks-procs.xql	1 Mar 2006 13:49:15 -0000	1.3
@@ -1,6 +1,35 @@
 <?xml version="1.0"?>
 <queryset>
 
+   <fullquery name="tasks::belong_to_package.objects_belong_to_package_p">
+         <querytext>
+
+            select 1
+              from acs_objects
+             where object_id in ([template::util::tcl_to_sql_list $objects])
+             limit 1
+
+         </querytext>
+   </fullquery>
+
+   <fullquery name="tasks::task::title.get_task_title">
+         <querytext>
+
+            select title from t_tasks where task_id = :task_id
+
+         </querytext>
+   </fullquery>
+
+   <fullquery name="tasks::task::delete.delete_task">
+         <querytext>
+
+	    update t_tasks
+               set status_id = null
+	     where task_id = :task_id
+
+         </querytext>
+   </fullquery>
+
    <fullquery name="tasks::task::complete.set_status_done">
          <querytext>
 
@@ -24,6 +53,16 @@
          </querytext>
    </fullquery>
 
+   <fullquery name="tasks::task::edit.get_status_id">
+         <querytext>
+
+        select status_id
+          from t_tasks
+         where task_id = :task_id
+
+         </querytext>
+   </fullquery>
+
    <fullquery name="tasks::task::edit.update_task">
          <querytext>
 
@@ -36,6 +75,7 @@
             priority = :priority,
             due_date = :due_date,
 	    assignee_id = :assignee_id
+            $completed_clause
 	where task_id = :task_id
 
          </querytext>
@@ -58,7 +98,6 @@
 
 	update t_process_tasks
 	set open_action_id = :open_action_id,
-	    party_id = :party_id,
 	    object_id = :object_id,
 	    title = :title,
 	    description = :description,
@@ -86,13 +125,46 @@
          </querytext>
    </fullquery>
 
+   <fullquery name="tasks::process::assign.get_workflow_id">
+         <querytext>
+
+	select workflow_id
+	  from t_processes
+	 where process_id = :process_id
+
+         </querytext>
+   </fullquery>
+
+
+   <fullquery name="tasks::process::assign.get_case">
+         <querytext>
+
+        select case_id
+          from workflow_cases
+         where workflow_id = :workflow_id
+           and object_id = :object_id
+
+         </querytext>
+   </fullquery>
+
+   <fullquery name="tasks::process::assign.update_instance_case">
+         <querytext>
+
+        update t_process_instances
+           set case_id = :case_id
+         where instance_id = :instance_id
+
+         </querytext>
+   </fullquery>
+
    <fullquery name="tasks::process::edit.update_process">
          <querytext>
 
 	update t_processes
 	set title = :title,
 	    description = :description,
-	    mime_type = :mime_type
+	    mime_type = :mime_type,
+            assignee_id = :assignee_id
 	where process_id = :process_id
 
          </querytext>