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.7 -r1.8
--- openacs-4/packages/assessment/www/process-response.tcl	14 Oct 2004 14:15:04 -0000	1.7
+++ openacs-4/packages/assessment/www/process-response.tcl	5 Nov 2004 00:34:56 -0000	1.8
@@ -44,12 +44,21 @@
             as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_id_answer $response_to_item_choice_id -text_answer $response
         }
     } else {
+        if {[info exists as_item_display_tax__item_id]} {
+            db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} {
+        content::item::delete -item_id $item_id
+        }
+        foreach response $response_to_item($response_to_item_name) {
+            as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -text_answer $response
+        } 
+       } else {
         db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} {
-            content::item::delete -item_id $item_id
+        content::item::delete -item_id $item_id
         }
         foreach response $response_to_item($response_to_item_name) {
             as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_id_answer $response
         }
+        }
     }
 }