Index: openacs-4/contrib/packages/project-manager/tcl/task-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs-postgresql.xql,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/contrib/packages/project-manager/tcl/task-procs-postgresql.xql	12 Mar 2004 13:44:43 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs-postgresql.xql	20 May 2004 17:30:04 -0000	1.4.2.1
@@ -27,6 +27,27 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="pm::task::current_status.get_current_status">
+    <querytext>
+      select status
+      from pm_tasks
+      where task_id = :task_item_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="pm::task::open_p.open_p">
+    <querytext>
+      SELECT
+      case when status_type = 'c' then 0 else 1 end as open_p
+      FROM 
+      pm_tasks t,
+      pm_task_status s
+      WHERE
+      task_id  = :task_item_id and
+      t.status = s.status_id
+    </querytext>
+  </fullquery>
+
   <fullquery name="pm::task::default_status_open.get_default_status_open">
     <querytext>
       select status_id 
@@ -53,13 +74,36 @@
     </querytext>
   </fullquery>
   
+  <fullquery name="pm::task::dependency_options.get_dependency_tasks">
+    <querytext>
+      SELECT
+        r.item_id, 
+        r.title as task_title        
+	FROM
+        pm_tasks_revisionsx r, 
+        cr_items i,
+        pm_tasks t,
+        pm_task_status s
+        WHERE
+        r.parent_id = :project_item_id and
+        r.revision_id = i.live_revision and
+        i.item_id = t.task_id and
+        t.status  = s.status_id and
+        s.status_type = 'o'
+      $union_clause
+     ORDER BY
+     task_title
+    </querytext>
+  </fullquery>
+
   <fullquery name="pm::task::edit.new_task_revision">
     <querytext>
       select pm_task__new_task_revision (
       :task_item_id,
       :project_item_id,
       :title,
       :description,
+      :mime_type,
       [pm::util::datenvl -value $end_date -value_if_null "null" -value_if_not_null "to_timestamp('$end_date','YYYY MM DD HH24 MI SS')"],
       :percent_complete,
       :estimated_hours_work,
@@ -76,20 +120,21 @@
 
   <fullquery name="pm::task::new.new_task_item">
     <querytext>
-      select pm_task__new_task_item (
-      :project_id,
-      :title,
-      :description,
-      :end_date,
-      :percent_complete,
-      :estimated_hours_work,
-      :estimated_hours_work_min,
-      :estimated_hours_work_max,
-      :status_id,
-      coalesce (:creation_date,current_timestamp),
-      :creation_user,
-      :creation_ip,
-      :package_id)
+        select pm_task__new_task_item (
+        :project_id,
+        :title,
+        :description,
+        :mime_type,
+        [pm::util::datenvl -value $end_date -value_if_null "null" -value_if_not_null "to_timestamp('$end_date','YYYY MM DD HH24 MI SS')"],
+        :percent_complete,
+        :estimated_hours_work,
+        :estimated_hours_work_min,
+        :estimated_hours_work_max,
+        :status_id,
+        coalesce (:creation_date,current_timestamp),
+        :creation_user,
+        :creation_ip,
+        :package_id)
     </querytext>
   </fullquery>
 </queryset>