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.5
--- 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	27 Apr 2004 00:49:28 -0000	1.5
@@ -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 
@@ -60,6 +81,7 @@
       :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 +98,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>