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.3 -r1.4
--- openacs-4/contrib/packages/project-manager/tcl/task-procs-postgresql.xql	26 Feb 2004 15:15:41 -0000	1.3
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs-postgresql.xql	12 Mar 2004 13:44:43 -0000	1.4
@@ -3,16 +3,40 @@
 <queryset>
   <rdbms><type>postgresql</type><version>7.3</version></rdbms>
 
-  <fullquery name="project_manager::task::default_status_open.get_default_status_open">
+  <fullquery name="pm::task::get_item_id.get_item_id">
     <querytext>
+      SELECT
+      i.item_id
+      FROM
+      cr_items i,
+      cr_revisions r
+      WHERE
+      i.item_id = r.item_id and
+      r.revision_id = :task_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="pm::task::get_revision_id.get_revision_id">
+    <querytext>
+      SELECT
+      live_revision
+      FROM
+      cr_items i
+      WHERE
+      i.item_id = :task_item_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="pm::task::default_status_open.get_default_status_open">
+    <querytext>
       select status_id 
       from pm_task_status 
       where status_type = 'o'
       limit 1
     </querytext>
   </fullquery>
 
-  <fullquery name="project_manager::task::default_status_closed.get_default_status_closed">
+  <fullquery name="pm::task::default_status_closed.get_default_status_closed">
     <querytext>
       select status_id 
       from pm_task_status 
@@ -21,16 +45,37 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="project_manager::task::get_url.get_package_id">
+  <fullquery name="pm::task::get_url.get_package_id">
     <querytext>
       obviously broken
       select package_id from surveys
       where survey_id=:object_id
     </querytext>
   </fullquery>
   
-  <fullquery name="project_manager::task::new.new_task_item">
+  <fullquery name="pm::task::edit.new_task_revision">
     <querytext>
+      select pm_task__new_task_revision (
+      :task_item_id,
+      :project_item_id,
+      :title,
+      :description,
+      [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,
+      :actual_hours_worked,
+      :status_id,
+      current_timestamp,
+      :update_user,
+      :update_ip,
+      :package_id)
+    </querytext>
+  </fullquery>
+
+  <fullquery name="pm::task::new.new_task_item">
+    <querytext>
       select pm_task__new_task_item (
       :project_id,
       :title,