Index: openacs-4/packages/survey/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/index.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/survey/www/admin/index.adp 21 Jan 2005 17:24:28 -0000 1.4 +++ openacs-4/packages/survey/www/admin/index.adp 5 Mar 2008 21:43:07 -0000 1.5 @@ -5,11 +5,11 @@ Index: openacs-4/packages/survey/www/admin/one-respondent.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one-respondent.adp,v diff -u -r1.7 -r1.8 --- openacs-4/packages/survey/www/admin/one-respondent.adp 21 Jan 2005 17:24:28 -0000 1.7 +++ openacs-4/packages/survey/www/admin/one-respondent.adp 5 Mar 2008 21:43:07 -0000 1.8 @@ -14,20 +14,21 @@ - + + + + #survey.Edit# + - -#survey.Edit# - -#survey.Delete# +#survey.Delete# [#survey.Original##survey.Edited# #survey.lt_Response_on_responses# -
+
@responses.response_display;noquote@ Index: openacs-4/packages/survey/www/admin/one-respondent.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one-respondent.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/survey/www/admin/one-respondent.tcl 21 Jan 2005 17:24:28 -0000 1.4 +++ openacs-4/packages/survey/www/admin/one-respondent.tcl 5 Mar 2008 21:43:07 -0000 1.5 @@ -38,10 +38,11 @@ } set context [_ survey.One_Respondent] - -db_multirow -extend {response_display} responses get_responses {} { -set response_display [survey_answer_summary_display $response_id 1 ] + +db_multirow -extend {response_display respond_url} responses get_responses {} { + set response_display [survey_answer_summary_display $response_id 1 ] + set respond_url [export_vars -base respond {response_id survey_id user_id}] } ad_return_template Index: openacs-4/packages/survey/www/admin/one.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.adp,v diff -u -r1.9 -r1.10 --- openacs-4/packages/survey/www/admin/one.adp 21 Jan 2005 17:24:28 -0000 1.9 +++ openacs-4/packages/survey/www/admin/one.adp 5 Mar 2008 21:43:07 -0000 1.10 @@ -4,7 +4,7 @@ #survey.lt_One_Survey_survey_inf# @context;noquote@

#survey.lt_Main_Survey_Administr#

-@survey_info.name@ #survey.-__Created_by# @survey_info.creator_name@#survey._on_creation_date# +

@survey_info.name@ #survey.-__Created_by# @survey_info.creator_name@#survey._on_creation_date#

@@ -24,7 +24,7 @@ href="responses?survey_id=@survey_id@">#survey.Summary# | #survey.CSV_file# - @@ -33,7 +33,15 @@ href="response-editable-toggle?survey_id=@survey_id@">#survey.make# #survey.non-##survey.editable# ] - + + + + @@ -49,7 +57,7 @@ #survey.Copy_this_survey# #survey.lt_-_Lets_you_use_this_s#
#survey.This_survey_is# <%= [lang::util::localize @survey_info.enabled_display@]%><%=[lang::util::localize @survey_info.enabled_display@]%>. - @toggle_enabled_text@
#survey.Response_Options# <%= [lang::util::localize @survey_info.single_response_display@]%> - [ +
#survey.Response_Options# <%= [lang::util::localize @survey_info.single_response_display@]%> - [ @response_limit_toggle@ ]
#survey.Display_Options# <%= [lang::util::localize "#survey.@survey_info.display_type@#"]%> - [<%= [lang::util::localize "#survey.@survey_display_types:item@#"]%>]
#survey.Display_Options# <%= [lang::util::localize "#survey.@survey_info.display_type@#"]%> - + + [<%= [lang::util::localize "#survey.@survey_display_types:item@#"]%>] + + +
#survey.Email_Options#@notification_chunk;noquote@
-
+

#survey.Questions#

@@ -69,13 +77,13 @@ - + href="question-swap?section_id=@section_id@&survey_id=@survey_id@&sort_order=@questions.sort_order@&direction=down">#survey.Move_Down##survey.Move_Up##survey.Delete# @@ -84,7 +92,7 @@ @@ -93,7 +101,7 @@ - +
@questions.rownum@. #survey.Edit# +#survey.Edit# #survey.inactive# -#survey.Copy# -#survey.Add_New# +#survey.Copy# +#survey.Add_New# #survey.Move_Down##survey.Move_Up##survey.Delete#
-
@questions.question_display;noquote@
+
@questions.question_display;noquote@
#survey.add_new_question#
#survey.add_new_question#
Index: openacs-4/packages/survey/www/admin/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/survey/www/admin/one.tcl 26 Jan 2005 21:05:13 -0000 1.8 +++ openacs-4/packages/survey/www/admin/one.tcl 5 Mar 2008 21:43:07 -0000 1.9 @@ -70,9 +70,21 @@ set context [list $survey_info(name)] -db_multirow -extend { question_display } questions survey_questions "" {set question_display [survey_question_display $question_id]} +db_multirow -extend { question_display question_modify_url question_copy_url question_add_url question_delete_url question_swap_down_url question_swap_up_url } questions survey_questions "" { + set question_display [survey_question_display $question_id] + set question_modify_url [export_vars -base question-modify {{question_id $question_id} section_id survey_id}] + set question_copy_url [export_vars -base question-copy {{question_id $question_id} {sort_order $sort_order}}] + set question_add_url [export_vars -base question-add {section_id {after $sort_order}}] + set question_delete_url [export_vars -base question-delete {question_id survey_id}] + set question_swap_down_url [export_vars -base question-swap {section_id survey_id {sort_order $sort_order} {direction down}}] + set question_swap_up_url [export_vars -base question-swap {section_id survey_id {sort_order $sort_order} {direction up}}] + +} + + + set notification_chunk [notification::display::request_widget \ -type survey_response_notif \ -object_id $survey_id \ Index: openacs-4/packages/survey/www/admin/respond.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/respond.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/survey/www/admin/respond.adp 21 Jan 2005 17:24:28 -0000 1.3 +++ openacs-4/packages/survey/www/admin/respond.adp 5 Mar 2008 21:43:07 -0000 1.4 @@ -3,28 +3,30 @@ #survey.lt_survey_name_Responses_1# @context;noquote@ +
+ +
+ +
+
+ - - - + - -
@description@
* denotes a required question


@form_vars;noquote@ -
+ Index: openacs-4/packages/survey/www/admin/respondents.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/respondents.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/survey/www/admin/respondents.tcl 8 Aug 2006 21:27:13 -0000 1.8 +++ openacs-4/packages/survey/www/admin/respondents.tcl 5 Mar 2008 21:43:07 -0000 1.9 @@ -31,7 +31,7 @@ [list first_names "[_ survey.First_Name]" {upper(first_names) $order} {$first_names}] \ [list last_name "[_ survey.Last_Name]" "" {$last_name}] \ [list email "[_ survey.Email_Address]" "" {$email}] \ - [list actions "[_ survey.Actions]" no_sort {[_ survey.View]}] \ + [list actions "[_ survey.Actions]" no_sort {[_ survey.View]}] \ ] set respondents_table [ad_table -Torderby $orderby -Textra_vars {survey_id} -Tmissing_text "[_ survey.No_data_found]" select_respondents {} $table_def] Index: openacs-4/packages/survey/www/admin/responses.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/survey/www/admin/responses.adp 21 Jan 2005 17:24:28 -0000 1.5 +++ openacs-4/packages/survey/www/admin/responses.adp 5 Mar 2008 21:43:07 -0000 1.6 @@ -12,4 +12,3 @@ @results;noquote@ - Index: openacs-4/packages/survey/www/admin/responses.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/survey/www/admin/responses.tcl 21 Jan 2005 17:24:28 -0000 1.3 +++ openacs-4/packages/survey/www/admin/responses.tcl 5 Mar 2008 21:43:07 -0000 1.4 @@ -44,7 +44,7 @@ "date" - "text" - "shorttext" { - append results "[_ survey.View_responses]\n" + append results "
[_ survey.View_responses]
\n" } "boolean" { @@ -70,7 +70,7 @@ } "blob" { db_foreach survey_attachment_summary {} { - append results "$title
" + append results "$title
" } } } Index: openacs-4/packages/survey/www/admin/survey-preview.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-preview.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/survey/www/admin/survey-preview.adp 21 Jan 2005 17:24:28 -0000 1.5 +++ openacs-4/packages/survey/www/admin/survey-preview.adp 5 Mar 2008 21:43:07 -0000 1.6 @@ -4,27 +4,25 @@ #survey.lt_Preview_One_Survey_na# @context;noquote@ #survey.Return# +
- - + -
@description;noquote@
* #survey.lt_denotes_a_required_qu#


@form_vars;noquote@ -
+ - Index: openacs-4/packages/survey/www/admin/view-text-responses.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/view-text-responses.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/survey/www/admin/view-text-responses.adp 21 Jan 2005 17:24:28 -0000 1.6 +++ openacs-4/packages/survey/www/admin/view-text-responses.adp 5 Mar 2008 21:43:07 -0000 1.7 @@ -5,14 +5,13 @@ #survey.lt_survey_name_Responses_1# @context;noquote@ @question_text@ -
+
#survey.No_Responses# -@responses.respondent_name@ +@responses.respondent_name@ #survey.lt_on_responsessubmissio# -
+