Index: openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs-postgresql.xql	26 Aug 2003 00:06:30 -0000	1.1
@@ -0,0 +1,69 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+  <fullquery name="project_manager::project::compute_status.select_project_children">
+    <querytext>
+        select
+        item_id, 
+        content_type 
+        from 
+        cr_items 
+        where parent_id = :project_item_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="project_manager::project::compute_status.projects_query">
+    <querytext>
+        select
+        sum(p.actual_hours_completed) as projects_total_hours_worked
+        from
+        pm_projectsx p, cr_items i
+        where
+        p.item_id in ([join $project_list ", "]) and
+        i.live_revision = p.revision_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="project_manager::project::compute_status.tasks_query">
+    <querytext>
+        select
+        sum(t.actual_hours_worked) as tasks_total_hours_worked
+        from
+        pm_tasks_revisionsx t, cr_items i
+        where
+        t.item_id in ([join $task_list ", "]) and
+        i.live_revision = t.revision_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="project_manager::project::compute_status.update_project">
+    <querytext>
+        update
+        pm_projects
+        set 
+        actual_hours_completed = :total_hours_worked
+        where
+        project_id = (select live_revision from cr_items where item_id = :project_item_id)
+    </querytext>
+  </fullquery>
+
+  <fullquery name="project_manager::project::compute_parent_status.get_parent_id">
+    <querytext>
+        select
+        parent_id
+        from
+        cr_items
+        where
+        item_id = :my_item_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="project_manager::project::compute_parent_status.get_root_folder">
+    <querytext>
+        select pm_project__get_root_folder (:package_id, 'f')
+    </querytext>
+  </fullquery>
+
+</queryset>