Index: openacs-4/packages/simple-survey/www/admin/question-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simple-survey/www/admin/question-delete-2.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/simple-survey/www/admin/question-delete-2.tcl	15 Jun 2001 00:45:42 -0000	1.2
@@ -23,9 +23,8 @@
 db_transaction {
     db_dml survsimp_question_responses_delete "delete from survsimp_question_responses where question_id = :question_id" 
 
-db_dml survsimp_question_choices_delete "delete from (select * from survsimp_choice_scores, survsimp_question_choices
-      where survsimp_choice_scores.choice_id = survsimp_question_choices.choice_id and
-question_id = :question_id)"
+db_dml survsimp_question_choices_score_delete "delete from survsimp_choice_scores where choice_id in (select choice_id from survsimp_question_choices
+          where question_id = :question_id)"
 
     db_dml survsimp_question_choices_delete "delete from survsimp_question_choices where question_id = :question_id"