Index: openacs-4/packages/simple-survey/www/admin/respondents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/respondents.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simple-survey/www/admin/respondents.tcl	16 Apr 2002 13:01:38 -0000	1.5
+++ openacs-4/packages/simple-survey/www/admin/respondents.tcl	16 Apr 2002 14:37:29 -0000	1.6
@@ -16,11 +16,14 @@
 
 ad_require_permission $survey_id survsimp_admin_survey
 
-db_multirow respondents select_respondents {}
+set user_list [list]
+db_multirow respondents select_respondents {} {
+    lappend user_list $user_id
+}
+
 set survey_name [db_string select_survey_name {}]
 
 set context_bar [list \
-    {"./" "Simple Survey Admin"} \
     [list "one?survey_id=$survey_id" "Administer Survey"] \
     "Respondents" \
 ]