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.5 -r1.6
--- openacs-4/packages/survey/www/admin/question-add.tcl	21 Jan 2005 17:24:28 -0000	1.5
+++ openacs-4/packages/survey/www/admin/question-add.tcl	6 Nov 2013 07:33:54 -0000	1.6
@@ -16,8 +16,8 @@
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_get_user_id]
-ad_require_permission $package_id survey_create_question
+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
 
@@ -43,9 +43,9 @@
 
 get_survey_info -section_id $section_id
 set survey_id $survey_info(survey_id)
-set context [list [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Question]"]
+set context [list [list "one?[export_vars -url {survey_id}]" $survey_info(name)] "[_ survey.Add_A_Question]"]
 
-if {[ad_parameter allow_question_deactivation_p] == 1} {
+if {[parameter::get -parameter allow_question_deactivation_p] == 1} {
     ad_form -extend -name create_question -form {
         {active:text(radio)     {label "[_ survey.Active]"} {options {{[_ survey.Yes] t} {[_ survey.No] f}}} {value t}}
     }