Index: openacs-4/packages/survey/www/admin/survey-preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-preview.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/survey/www/admin/survey-preview.tcl	21 Jan 2005 17:24:28 -0000	1.4
+++ openacs-4/packages/survey/www/admin/survey-preview.tcl	6 Nov 2013 07:33:55 -0000	1.5
@@ -17,7 +17,7 @@
 
 } -validate {
     survey_exists -requires {survey_id} {
-	if ![db_0or1row survey_exists {}] {
+	if {![db_0or1row survey_exists {}]} {
 	    ad_complain "[_ survey.lt_Survey_survey_id_does]"
 	}
     }
@@ -32,7 +32,7 @@
     return_url:onerow
 }
 
-ad_require_permission $survey_id survey_take_survey
+permission::require_permission -object_id $survey_id -privilege survey_take_survey
 
     get_survey_info -survey_id $survey_id
     set name $survey_info(name)
@@ -64,6 +64,6 @@
     }
 
 set return_url "one?[export_vars survey_id]"
-set form_vars [export_form_vars section_id survey_id]
+set form_vars [export_vars -form {section_id survey_id}]
 ad_return_template