Index: openacs-4/packages/survey/www/admin/question-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-delete.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/survey/www/admin/question-delete.tcl	21 Jan 2005 17:24:28 -0000	1.5
+++ openacs-4/packages/survey/www/admin/question-delete.tcl	6 Nov 2013 07:33:55 -0000	1.6
@@ -15,7 +15,7 @@
     {sort_order ""}
 }
 
-ad_require_permission $question_id survey_delete_question
+permission::require_permission -object_id $question_id -privilege survey_delete_question
 
 db_1row section_id_from_question_id ""
 
@@ -58,7 +58,7 @@
 		db_dml survey_question_choices_delete {}
 
 		db_exec_plsql survey_delete_question {}
-		if {![empty_string_p $sort_order]} {
+		if {$sort_order ne ""} {
 		    db_dml survey_renumber_questions {}
 		}
 	    } on_error {
@@ -75,7 +75,7 @@
 	    db_release_unused_handles
 	    set sort_order [expr {$sort_order -1}]
 	}
-        ad_returnredirect "one?[export_url_vars survey_id]&#${sort_order}"
+        ad_returnredirect "one?[export_vars -url {survey_id}]&#${sort_order}"
         ad_script_abort
     }