ad_page_contract { Modify question responses and scores @param question_id which question we'll be changing responses of @param section_id survey providing this question @author Nick Strugnell (nstrug@arsdigita.com) @date September 15, 2000 @cvs-id $Id: modify-responses.tcl,v 1.5 2015/06/27 20:46:15 gustafn Exp $ } { question_id:naturalnum,notnull section_id:naturalnum,notnull } permission::require_permission -object_id $section_id -privilege survey_modify_question get_survey_info -section_id $section_id set survey_id $survey_info(survey_id) set survey_name [db_string survey_name_from_id "select name from survey_sections where section_id=:section_id" ] set question_text [db_string survey_question_text_from_id "select question_text from survey_questions where question_id = :question_id" ] set table_html "
Response | " set variable_id_list [list] db_foreach get_variable_names "select variable_name, survey_variables.variable_id as variable_id from survey_variables, survey_variables_surveys_map where survey_variables.variable_id = survey_variables_surveys_map.variable_id and section_id = :section_id order by variable_name" { lappend variable_id_list $variable_id append table_html "$variable_name | " } append table_html "
---|---|
" db_foreach get_scores "select score, survey_variables.variable_id as variable_id from survey_choice_scores, survey_variables where survey_choice_scores.choice_id = :choice_id and survey_choice_scores.variable_id = survey_variables.variable_id order by variable_name" { append table_html " | " } append table_html " |
}] ad_return_template generic