Index: openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	15 Jun 2001 00:45:42 -0000	1.2
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	1 Jul 2001 18:57:49 -0000	1.3
@@ -340,7 +340,7 @@
 }
 
 proc_doc survsimp_survey_admin_check { user_id survey_id } { Returns 1 if user is allowed to administer a survey or is a site administrator, 0 otherwise. } {
-    if { ![ad_administrator_p $user_id] && [db_string survsimp_creator_p "
+    if { ![ad_permission_p -user_id $user_id $survey_id "admin"] && [db_string survsimp_creator_p "
     select creation_user
     from   survsimp_surveys
     where  survey_id = :survey_id" ] != $user_id } {