Index: openacs-4/packages/simple-survey/www/admin/question-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simple-survey/www/admin/question-add.tcl	15 Jun 2001 00:45:42 -0000	1.2
+++ openacs-4/packages/simple-survey/www/admin/question-add.tcl	25 Feb 2002 20:27:41 -0000	1.3
@@ -67,36 +67,6 @@
     return $return_html
 }
 
-doc_return 200 text/html "[ad_header "Add A Question"]
-<h2>$name</h2>
+set context_bar [ad_context_bar_ws_or_index [list "./" "Simple Survey Admin"] [list "one?[export_url_vars survey_id]" "Administer Survey"] "Add A Question"]
 
-[ad_context_bar_ws_or_index [list "" "Simple Survey Admin"] [list "one?[export_url_vars survey_id]" "Administer Survey"] "Add A Question"]
-
-<hr>
-
-<form action=\"question-add-2\" method=post>
-[export_form_vars survey_id after]
-
-Question:
-<blockquote>
-<textarea name=question_text rows=5 cols=70></textarea>
-</blockquote>
-[survey_specific_html $type]
-<p>
-
-Active? 
-<input type=radio value=t name=active_p checked>Yes
-<input type=radio value=f name=active_p>No
-<br>
-Required?
-<input type=radio value=t name=required_p checked>Yes
-<input type=radio value=f name=required_p>No
-
-<center>
-<input type=submit value=\"Continue\">
-</center>
-
-</form>
-
-[ad_footer]
-"
+ad_return_template