+
+
+
+
-
-
-
-
+
[#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#
-
+
#survey.Questions#
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@
+
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 { | }] \
+ [list actions "[_ survey.Actions]" no_sort { | }] \
]
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 "\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#
+
-
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#
-
+
|