Index: openacs-4/packages/assessment/tcl/as-session-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-session-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-session-procs.xql	15 May 2007 20:14:17 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-session-procs.xql	22 Feb 2008 23:42:33 -0000	1.4
@@ -35,6 +35,18 @@
 </querytext>
 </fullquery>
 
+<fullquery name="as::session::delete.delete_choices">
+<querytext>
+DELETE FROM as_session_choices WHERE  session_id = :session_id;
+</querytext>
+</fullquery>
+
+<fullquery name="as::session::delete.delete_session_items">
+<querytext>
+delete from as_session_items where session_id =  :session_id;
+</querytext>
+</fullquery>
+
 <fullquery name="as::session::delete.get_comments">
 <querytext>
 select g.comment_id