Index: openacs-4/packages/survey/www/admin/survey-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-copy.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/survey/www/admin/survey-copy.tcl	21 Jan 2005 17:24:28 -0000	1.4
+++ openacs-4/packages/survey/www/admin/survey-copy.tcl	6 Nov 2013 07:33:55 -0000	1.5
@@ -10,9 +10,9 @@
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
-ad_require_permission $package_id survey_create_question
+permission::require_permission -object_id $package_id -privilege survey_create_question
 db_1row get_survey_info {}
 set title_name $name
 set name "[_ survey.Copy_of] $name"