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 -N -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 -N -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 {} }