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.11 -r1.12
--- openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 4 Jan 2006 23:32:35 -0000 1.11
+++ openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 6 Jan 2006 04:50:18 -0000 1.12
@@ -65,6 +65,24 @@
+
+
+ SELECT a.assess_id, a.latest_revision_id
+ FROM cc_uos u, cc_uos_revisions r, cr_items i, cc_uos_assess a
+ WHERE u.uos_id = :uos_id
+ AND i.item_id = u.uos_id
+ AND r.uos_revision_id = i.latest_revision
+ AND a.parent_uos_id = :uos_id
+
+
+
+
+
+ SELECT method_id FROM cc_uos_assess_method_map
+ WHERE assess_revision_id = :latest_revision_id
+
+
+
SELECT method_id FROM cc_uos_tl_method_map
@@ -185,6 +203,18 @@
+
+
+ SELECT cc_uos_assess_revision__new (
+ null,
+ :assess_id,
+ now(),
+ :user_id,
+ :creation_ip
+ );
+
+
+
SELECT cc_uos_gradattr_set_rev__new (
@@ -224,6 +254,15 @@
+
+
+ SELECT cc_uos_assess_method__map (
+ :revision_id,
+ :assess_method_id
+ );
+
+
+
SELECT cc_uos_gradattr__map (
@@ -253,6 +292,16 @@
+
+
+ SELECT m.name || ' (' || m.identifier || '): ' || m.weighting || '%'
+ AS method_name, m.method_id
+ FROM cc_uos_assess_method m, acs_objects o
+ WHERE o.object_id = m.method_id
+ AND o.package_id = :package_id
+
+
+
SELECT latest_revision FROM cr_items WHERE item_id = :object_id
@@ -279,6 +328,16 @@
+
+
+ SELECT i.latest_revision AS latest_assess_revision
+ FROM cr_items i, cr_child_rels c
+ WHERE c.relation_tag = 'cc_uos_assess'
+ AND c.parent_id = :object_id
+ AND i.item_id = c.child_id
+
+
+
SELECT i.latest_revision AS latest_ga_revision
@@ -320,6 +379,13 @@
+
+
+ UPDATE cc_uos_assess SET live_revision_id = :latest_assess_revision
+ WHERE parent_uos_id = :object_id
+
+
+
UPDATE cc_uos_gradattr_set SET live_revision_id = :latest_ga_revision
@@ -346,4 +412,16 @@
+
+
+ SELECT sum(weighting)
+ FROM cc_uos_assess a,
+ cc_uos_assess_method_map map,
+ cc_uos_assess_method meth
+ WHERE a.assess_id = :assess_id
+ AND map.assess_revision_id = a.latest_revision_id
+ AND map.method_id = meth.method_id
+
+
+