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]"]