Index: openacs-4/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/survey/www/respond.tcl	1 Mar 2005 00:01:44 -0000	1.8
+++ openacs-4/packages/survey/www/respond.tcl	6 Nov 2013 07:33:54 -0000	1.9
@@ -18,7 +18,7 @@
 
 } -validate {
     survey_exists -requires {survey_id} {
-	if ![db_0or1row survey_exists {}] {
+	if {![db_0or1row survey_exists {}]} {
 	    ad_complain "[_ survey.lt_Survey_survey_id_do_no]"
 	}
     set user_id [auth::require_login]
@@ -56,7 +56,7 @@
     return_url:onerow
 }
 
-ad_require_permission $survey_id survey_take_survey
+permission::require_permission -object_id $survey_id -privilege survey_take_survey
 
 set context $name
 set button_label "[_ survey.Submit_response]"
@@ -84,10 +84,10 @@
     # executing the survey associated with the logic
     # after the survey is completed
     #
-    if ![info exists return_url] {
+    if {![info exists return_url]} {
 	set return_url {}
     }
 }
-set form_vars [export_form_vars section_id survey_id new_response_id]
+set form_vars [export_vars -form {section_id survey_id new_response_id}]
 ad_return_template