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.15 -r1.16
--- openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 9 Jan 2006 05:46:49 -0000 1.15
+++ openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 10 Jan 2006 00:52:08 -0000 1.16
@@ -446,6 +446,16 @@
+
+
+ SELECT i.latest_revision AS latest_grade_revision
+ FROM cr_items i, cr_child_rels c
+ WHERE c.relation_tag = 'cc_uos_grade_set'
+ AND c.parent_id = :object_id
+ AND i.item_id = c.child_id
+
+
+
SELECT i.latest_revision AS latest_ga_revision
@@ -494,6 +504,13 @@
+
+
+ UPDATE cc_uos_grade_set SET live_revision_id = :latest_grade_revision
+ WHERE parent_uos_id = :object_id
+
+
+
UPDATE cc_uos_gradattr_set SET live_revision_id = :latest_ga_revision
Index: openacs-4/packages/curriculum-central/tcl/uos-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 9 Jan 2006 05:46:49 -0000 1.21
+++ openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 10 Jan 2006 00:52:08 -0000 1.22
@@ -1389,6 +1389,11 @@
db_1row get_latest_assess_revision {}
content::item::set_live_revision -revision_id $latest_assess_revision
db_dml set_live_assess_revision {}
+
+ # Do the same for cc_uos_assess
+ db_1row get_latest_grade_revision {}
+ content::item::set_live_revision -revision_id $latest_grade_revision
+ db_dml set_live_grade_revision {}
}