Index: openacs-4/packages/survey/www/admin/question-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/Attic/question-delete-2.tcl,v
diff -u -N
--- openacs-4/packages/survey/www/admin/question-delete-2.tcl	18 Sep 2002 12:15:21 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,44 +0,0 @@
-# /www/survsimp/admin/question-delete.tcl
-ad_page_contract {
-
-  Delete a question from a survey, along with all responses.
-
-  @param  question_id     question we're deleting
-  @author jsc@arsdigita.com
-  @date   March 13, 2000
-  @cvs-id question-delete-2.tcl,v 1.6.2.4 2000/07/21 20:22:35 seb Exp
-} {
-
-    question_id:integer
-
-}
-
-ad_require_permission $question_id survey_delete_question
-
-set user_id [ad_get_user_id]
-
-db_1row section_id_from_question_id ""
-
-db_transaction {
-    db_dml survey_question_responses_delete "delete from survey_question_responses where question_id = :question_id" 
-
-db_dml survey_question_choices_score_delete "delete from survey_choice_scores where choice_id in (select choice_id from survey_question_choices
-          where question_id = :question_id)"
-
-    db_dml survey_question_choices_delete "delete from survey_question_choices where question_id = :question_id" 
-
-    db_dml survey_questions_delete "delete from survey_questions where question_id = :question_id" 
-
-} on_error {
-    ad_return_error "Database Error" "There was an error while trying to delete the question:
-        <pre>
-        $errmsg
-        </pre>
-        <p> Please go back to the <a href=\"one?section_id=$section_id\">survey</a>.
-        "
-   ad_script_abort
-}
-
-db_release_unused_handles
-ad_returnredirect "one?[export_url_vars survey_id]" 
-
Index: openacs-4/packages/survey/www/admin/question-delete-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/Attic/question-delete-2.xql,v
diff -u -N
--- openacs-4/packages/survey/www/admin/question-delete-2.xql	16 Sep 2002 00:00:24 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,46 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-
-<fullquery name="section_id_from_question_id">      
-      <querytext>
-	select sq.section_id, sec.survey_id
-	  from survey_questions sq, survey_sections sec
-	 where sq.question_id = :question_id
-	   and sq.section_id = sec.section_id
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="survey_question_responses_delete">      
-      <querytext>
-      delete from survey_question_responses where question_id = :question_id
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="survey_question_choices_score_delete">
-      <querytext>
-
-      delete from survey_choice_scores
-      where choice_id in (select choice_id from survey_question_choices
-          where question_id = :question_id)
-
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="survey_question_choices_delete">      
-      <querytext>
-      delete from survey_question_choices where question_id = :question_id
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="survey_questions_delete">      
-      <querytext>
-      delete from survey_questions where question_id = :question_id
-      </querytext>
-</fullquery>
-
- 
-</queryset>