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