Index: openacs-4/packages/assessment/tcl/as-item-type-oq-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-oq-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-item-type-oq-procs.xql	25 Dec 2004 13:11:55 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-item-type-oq-procs.xql	26 Jan 2005 11:06:45 -0000	1.4
@@ -32,4 +32,20 @@
       </querytext>
 </fullquery>
 
+<fullquery name="as::item_type_oq::results.get_results">
+      <querytext>
+
+	select d.session_id, d.clob_answer
+	from as_item_data d, as_session_item_map m, cr_revisions ri, cr_revisions rs
+	where d.session_id in ([join $sessions ,])
+	and d.as_item_id = ri.revision_id
+	and ri.item_id = :as_item_item_id
+	and d.section_id = rs.revision_id
+	and rs.item_id = :section_item_id
+	and m.session_id = d.session_id
+	and m.item_data_id = d.item_data_id
+
+      </querytext>
+</fullquery>
+
 </queryset>