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.1 -r1.2
--- openacs-4/packages/assessment/www/process-response.tcl	15 Sep 2004 19:47:48 -0000	1.1
+++ openacs-4/packages/assessment/www/process-response.tcl	21 Sep 2004 15:07:12 -0000	1.2
@@ -13,6 +13,13 @@
 
 set context_bar [list]
 
+set as_session_id [as_session__get_session_id_from_user_assessment -subject_id [ad_conn user_id] -assessment_id $assessment_id]
+
 foreach response_to_item_id [array names response_to_item] {
-  as_item_data_new -session_id [as_session__get_session_id_from_user_assessment -subject_id [ad_conn user_id] -assessment_id $assessment_id] -item_id $response_to_item_id -choice_id_answer $response_to_item($response_to_item_id)
+  db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM (as_item_datax INNER JOIN as_sessionsx ON as_item_datax.session_id = as_sessionsx.session_id) INNER JOIN as_itemsx ON as_item_datax.as_item_id=as_itemsx.as_item_id WHERE as_itemsx.as_item_id=:response_to_item_id AND as_sessionsx.session_id=:as_session_id} {
+    content::item::delete -item_id $item_id
+  }
+  foreach response $response_to_item($response_to_item_id) {
+    as_item_data_new -session_id $as_session_id -as_item_id $response_to_item_id -choice_id_answer $response
+  }
 }