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"]