Index: openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 3 Jan 2006 13:26:48 -0000 1.10
+++ openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 4 Jan 2006 23:32:35 -0000 1.11
@@ -39,6 +39,17 @@
+
+
+ SELECT g.gradattr_set_id, g.latest_revision_id
+ FROM cc_uos u, cc_uos_revisions r, cr_items i, cc_uos_gradattr_set g
+ WHERE u.uos_id = :uos_id
+ AND i.item_id = u.uos_id
+ AND r.uos_revision_id = i.latest_revision
+ AND g.parent_uos_id = :uos_id
+
+
+
SELECT w.workload_id, wr.formal_contact_hrs, wr.informal_study_hrs,
@@ -61,6 +72,13 @@
+
+
+ SELECT gradattr_id FROM cc_uos_gradattr_map
+ WHERE revision_id = :latest_revision_id
+
+
+
SELECT count(*)
@@ -167,6 +185,18 @@
+
+
+ SELECT cc_uos_gradattr_set_rev__new (
+ null,
+ :gradattr_set_id,
+ now(),
+ :user_id,
+ :creation_ip
+ );
+
+
+
SELECT cc_uos_workload_revision__new (
@@ -194,6 +224,15 @@
+
+
+ SELECT cc_uos_gradattr__map (
+ :revision_id,
+ :gradattr_id
+ );
+
+
+
SELECT m.name || ' (' || m.identifier || ')' AS method_name,
@@ -204,6 +243,16 @@
+
+
+ SELECT g.name || ' (' || g.identifier || ')' AS ga_name,
+ g.gradattr_id
+ FROM cc_uos_gradattr g, acs_objects o
+ WHERE o.object_id = g.gradattr_id
+ AND o.package_id = :package_id
+
+
+
SELECT latest_revision FROM cr_items WHERE item_id = :object_id
@@ -230,6 +279,16 @@
+
+
+ SELECT i.latest_revision AS latest_ga_revision
+ FROM cr_items i, cr_child_rels c
+ WHERE c.relation_tag = 'cc_uos_gradattr_set'
+ AND c.parent_id = :object_id
+ AND i.item_id = c.child_id
+
+
+
SELECT i.latest_revision AS latest_workload_revision
@@ -261,6 +320,13 @@
+
+
+ UPDATE cc_uos_gradattr_set SET live_revision_id = :latest_ga_revision
+ WHERE parent_uos_id = :object_id
+
+
+
UPDATE cc_uos_workload SET live_revision_id = :latest_workload_revision