Index: openacs-4/packages/survey/www/admin/question-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add.tcl,v diff -u -r1.8.4.1 -r1.8.4.2 --- openacs-4/packages/survey/www/admin/question-add.tcl 22 Oct 2019 07:54:50 -0000 1.8.4.1 +++ openacs-4/packages/survey/www/admin/question-add.tcl 17 Dec 2019 16:28:44 -0000 1.8.4.2 @@ -19,7 +19,7 @@ set user_id [ad_conn user_id] permission::require_permission -object_id $package_id -privilege survey_create_question -get_survey_info -section_id $section_id +survey::get_info -section_id $section_id ad_form -name create_question -action question-add-2 -export { after } -form { question_id:key @@ -41,7 +41,7 @@ -get_survey_info -section_id $section_id +survey::get_info -section_id $section_id set survey_id $survey_info(survey_id) set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.Add_A_Question]"]