Index: openacs-4/packages/survey/www/one-respondent.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/one-respondent.tcl,v diff -u -N -r1.11.2.1 -r1.11.2.2 --- openacs-4/packages/survey/www/one-respondent.tcl 17 Dec 2019 16:28:44 -0000 1.11.2.1 +++ openacs-4/packages/survey/www/one-respondent.tcl 9 Feb 2020 16:10:31 -0000 1.11.2.2 @@ -18,10 +18,10 @@ } -validate { survey_exists -requires {survey_id} { - if {![db_0or1row survey_exists {}]} { - ad_complain "[_ survey.lt_Survey_section_id_does]" - } - } + if {![db_0or1row survey_exists {}]} { + ad_complain "[_ survey.lt_Survey_section_id_does]" + } + } } -properties { survey_name:onerow description:onerow @@ -46,9 +46,15 @@ } db_multirow -extend {answer_summary pretty_submission_date respond_url} responses responses_select {} { - set answer_summary [survey_answer_summary_display $response_id 1] + set answer_summary [survey_answer_summary_display $response_id 1] set pretty_submission_date [lc_time_fmt $pretty_submission_date_ansi %x] set respond_url [export_vars -base respond {survey_id response_id}] } ad_return_template + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: