Index: openacs-4/packages/assessment/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/process-response.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/process-response.tcl	7 Oct 2004 10:58:07 -0000	1.4
+++ openacs-4/packages/assessment/www/process-response.tcl	8 Oct 2004 11:52:40 -0000	1.5
@@ -18,6 +18,10 @@
 db_dml session_finished {UPDATE as_sessions SET last_mod_datetime = NOW(), completed_datetime = NOW() WHERE session_id = :as_session_id}
 
 foreach response_to_item_name [array names response_to_item] {
+    set as_item_display_rbx__item_id {}
+    unset as_item_display_rbx__item_id
+    set as_item_display_tbx__item_id {}
+    unset as_item_display_tbx__item_id
     regsub -all -line -nocase -- {.*_} $response_to_item_name {} response_to_item_choice_id
     regsub -all -line -nocase -- {_.*} $response_to_item_name {} response_to_item_id 
     set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:response_to_item_id"]
Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/assessment/www/session.tcl	7 Oct 2004 10:58:07 -0000	1.10
+++ openacs-4/packages/assessment/www/session.tcl	8 Oct 2004 11:52:40 -0000	1.11
@@ -24,6 +24,8 @@
 db_multirow -extend [list choice_html score maxscore notanswered item_correct presentation_type] items query_all_items {} {
   set as_item_display_rbx__item_id {}
   unset as_item_display_rbx__item_id
+  set as_item_display_tbx__item_id {}
+  unset as_item_display_tbx__item_id  
   set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"]
   set item_mc_id [db_string item_item_type "SELECT related_object_id FROM cr_item_rels WHERE relation_tag = 'as_item_type_rel' AND item_id=:item_item_id"]
   set mc_id [db_string item_to_rev "SELECT revision_id FROM cr_revisions WHERE item_id=:item_mc_id"]