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 + + +