Index: openacs-4/packages/assessment/tcl/as-item-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.xql,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/tcl/as-item-procs.xql 14 Jan 2005 13:13:37 -0000 1.3 +++ openacs-4/packages/assessment/tcl/as-item-procs.xql 13 Apr 2005 10:48:29 -0000 1.4 @@ -72,4 +72,32 @@ + + + + select max(t.as_item_type_id) as as_item_type_id + from as_item_type_mc t, cr_revisions c, as_item_rels r + where t.as_item_type_id = r.target_rev_id + and r.item_rev_id = :as_item_id + and r.rel_type = 'as_item_type_rel' + and c.revision_id = t.as_item_type_id + group by c.title, t.increasing_p, t.allow_negative_p, + t.num_correct_answers, t.num_answers + + + + + + + + select d.choice_orientation + from as_item_rels r, as_item_display_$presentation_type d + where r.item_rev_id = :as_item_id + and r.rel_type = 'as_item_display_rel' + and r.target_rev_id = d.as_item_display_id + + + + +