Index: openacs-4/packages/simple-survey/www/admin/description-edit-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/description-edit-2.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/description-edit-2.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,21 @@
+<master src=./master>
+<property name=title>Edit Description Confirmation</property>
+<property name=context_bar>@context_bar@</property>
+
+Here is how your survey description will appear:
+<blockquote><p>
+@description@
+<form method=post action="<%= [ns_conn url] %>">
+<%= [export_form_vars description desc_html survey_id] %>
+<input type=hidden name=checked_p value="t">
+<br><center><input type=submit value="Confirm"></center>
+</form>
+</blockquote>
+
+<font size=-1 face="verdana, arial, helvetica">
+Note: if the text above has a bunch of visible HTML tags then you probably
+should have selected "HTML" rather than "Plain Text". If it is all smashed together
+and you want the original line breaks saved then choose "Preformatted Text".
+Use your browser's Back button to return to the submission form.
+</font>
+    
Index: openacs-4/packages/simple-survey/www/admin/description-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/description-edit.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/description-edit.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,21 @@
+<master src=./master>
+<property name=title>@survey_name@: Edit Description</property>
+<property name=context_bar>@context_bar@</property>
+
+<blockquote>
+Edit and submit to change the description for this survey:
+<form method=post action="description-edit-2">
+<%= [export_form_vars survey_id] %>
+<textarea name=description rows=10 cols=65>@description@</textarea>  
+<br>
+The description above is:
+<input type=radio name=desc_html value="pre">Preformatted text
+<%= [survsimp_bt_mergepiece  "<input type=radio name=desc_html value=\"f\">Plain text
+<input type=radio name=desc_html value=\"t\">" $html_p_set] %> HTML
+<P>
+
+<center>
+<input type=submit value=Update>
+</center>
+
+</blockquote>
Index: openacs-4/packages/simple-survey/www/admin/name-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/name-edit-2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/name-edit-2.tcl	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,31 @@
+# /www/survsimp/admin/description-edit-2.tcl
+ad_page_contract {
+    Updates database with the new name
+    information and return user to the main survey page.
+
+    @param survey_id       survey which description we're updating
+    @param desc_html       is the description html or plain text
+    @param description     text of survey description
+    @param checked_p       confirmation flag
+
+    @author jsc@arsdigita.com
+    @author nstrug@arsdigita.com
+    @date   February 16, 2000
+    @cvs-id $Id: name-edit-2.tcl,v 1.1 2002/02/25 20:28:14 ben Exp $
+} {
+    survey_id:integer
+    name:trim,notnull
+}
+
+ad_require_permission $survey_id survsimp_modify_survey
+
+set exception_count 0
+set exception_text ""
+
+db_dml survsimp_update_name "update survsimp_surveys 
+set name= :name, short_name= :name
+where survey_id = :survey_id"
+
+ad_returnredirect "one?[export_url_vars survey_id]"
+
+
Index: openacs-4/packages/simple-survey/www/admin/name-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/name-edit.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/name-edit.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,16 @@
+<master src=./master>
+<property name=title>@survey_name@: Edit Name</property>
+<property name=context_bar>@context_bar@</property>
+
+<blockquote>
+Edit and submit to change the name for this survey:
+<form method=post action="name-edit-2">
+<%= [export_form_vars survey_id] %>
+<INPUT TYPE=text name=name value="@survey_name@" size=80>
+<br>
+
+<center>
+<input type=submit value=Update>
+</center>
+
+</blockquote>
Index: openacs-4/packages/simple-survey/www/admin/name-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/name-edit.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/name-edit.tcl	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,31 @@
+ad_page_contract {
+
+    Edit the name of the survey
+
+    @param  survey_id  integer denoting survey whose description we're changing
+
+    @author Jin Choi (jsc@arsdigita.com) 
+    @author nstrug@arsdigita.com
+    @date   February 16, 2000
+    @cvs-id $Id: name-edit.tcl,v 1.1 2002/02/25 20:28:14 ben Exp $
+} {
+
+    survey_id:integer
+
+}
+
+ad_require_permission $survey_id survsimp_modify_survey
+
+db_1row survey_properties "select name as survey_name, description, description_html_p as desc_html
+from survsimp_surveys
+where survey_id = :survey_id"
+
+set html_p_set [ns_set create]
+ns_set put $html_p_set desc_html $desc_html
+
+set context_bar [ad_context_bar_ws_or_index [list "./" "Simple Survey Admin"] [list "one?[export_url_vars survey_id]" "Administer Survey"] "Edit Name"]
+
+
+ad_return_template
+
+
Index: openacs-4/packages/simple-survey/www/admin/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/one.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/one.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,18 @@
+<master src=./master>
+<property name=title>One Survey: @survey_name@</property>
+<property name=context_bar>@context_bar@</property>
+
+<ul>
+<li>Created by: <a href="/shared/community-member?user_id=@creation_user@">@creator_name@</a>
+<li>Name: @survey_name@ <font size=-1>[ <a href="name-edit?survey_id=@survey_id@">edit</a> ]</font>
+<li>Created: <%= [util_AnsiDatetoPrettyDate $creation_date] %>
+<li>Status: @survey_status@ <font size=-1>@toggle_enabled_link@</font>
+<li>Responses per user: @survey_response_limit@ <font size=-1>[ <a href="response-limit-toggle?survey_id=@survey_id@">@response_limit_toggle@</a> @response_editable_link@ ]</font>
+<li>Description: @survey_description@ <font size=-1>[ <a href="description-edit?survey_id=@survey_id@">edit</a> ]</font>
+<li>Type: @type@
+<li>View responses:  <a href="respondents?survey_id=@survey_id@">by user</a> | <a href="responses?survey_id=@survey_id@">summary</a>
+<%= [survey_specific_html $type] %>
+</ul>
+<p>
+
+@questions_summary@
Index: openacs-4/packages/simple-survey/www/admin/question-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-add.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/question-add.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,27 @@
+<master src=./master>
+<property name=title>@name@: New Question</property>
+<property name=context_bar>@context_bar@</property>
+
+<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>
Index: openacs-4/packages/simple-survey/www/admin/question-modify-text.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-modify-text.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/question-modify-text.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,19 @@
+<master src=./master>
+<property name=title>@survey_name@: Modify Question Text</property>
+<property name=context_bar>@context_bar@</property>
+
+<form action="question-modify-text-2" method=GET>
+<%= [export_form_vars question_id survey_id] %>
+Question:
+<blockquote>
+<textarea name=question_text rows=5 cols=70><%= [ns_quotehtml $question_text] %></textarea>
+</blockquote>
+
+<p>
+
+<center>
+<input type=submit value="Continue">
+</center>
+
+
+</form>
Index: openacs-4/packages/simple-survey/www/admin/respondents.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/respondents.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/respondents.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,7 @@
+<master src=./master>
+<property name=title>@survey_name@: Respondents</property>
+<property name=context_bar>@context_bar@</property>
+
+<ul>
+@respondents@
+</ul>
Index: openacs-4/packages/simple-survey/www/admin/responses.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/responses.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simple-survey/www/admin/responses.adp	25 Feb 2002 20:28:14 -0000	1.1
@@ -0,0 +1,12 @@
+<master src=./master>
+<property name=title>@survey_name@: Responses</property>
+<property name=context_bar>@context_bar@</property>
+
+@unique_users_toggle@
+<%= [survey_specific_html $type] %>
+<p>
+@response_sentence@
+
+<ul>
+@results@
+</ul>