Index: openacs-4/packages/assessment/lib/session-items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/assessment/lib/session-items.xql	15 Apr 2005 17:26:45 -0000	1.6
+++ openacs-4/packages/assessment/lib/session-items.xql	20 May 2006 16:38:05 -0000	1.7
@@ -21,4 +21,30 @@
       </querytext>
 </fullquery>
 
+<fullquery name="get_user_choice_answers">
+    <querytext>
+      select choice_id
+      from as_item_data_choices
+      where item_data_id = :item_data_id
+    </querytext>
+</fullquery>
+
+<fullquery name="get_correct_choice_answers">
+    <querytext>
+      select c.choice_id
+      
+      from as_item_choices c
+      
+      where c.mc_id = (select max(t.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)
+      and c.correct_answer_p = 't'
+    </querytext>
+</fullquery>
+
 </queryset>