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.1 -r1.2
--- openacs-4/packages/simple-survey/www/admin/respondents.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/simple-survey/www/admin/respondents.tcl	25 Feb 2002 20:27:41 -0000	1.2
@@ -36,21 +36,9 @@
 from survsimp_surveys
 where survey_id = :survey_id" ]
 
-
-
-doc_return 200 text/html "[ad_header "Respondents to Survey"]
-<h2>$survey_name</h2>
-
-[ad_context_bar_ws_or_index [list "" "Simple Survey Admin"] \
+set context_bar [ad_context_bar_ws_or_index [list "./" "Simple Survey Admin"] \
      [list "one?survey_id=$survey_id" "Administer Survey"] \
      "Respondents"]
 
-<hr>
 
-<ul>
-$respondents
-</ul>
-
-[ad_footer]
-"
-
+ad_return_template