Index: openacs-4/packages/simple-survey/www/admin/responses.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/responses.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simple-survey/www/admin/responses.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/simple-survey/www/admin/responses.tcl	25 Feb 2002 20:27:41 -0000	1.2
@@ -159,24 +159,8 @@
     }
 }
 
-
-doc_return 200 text/html "[ad_header "Responses 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"] \
      "Responses"]
 
-<hr>
-$unique_users_toggle
-[survey_specific_html $type]
-<p>
-$response_sentence
-
-<ul>
-$results
-</ul>
-
-[ad_footer]
-"
-
+ad_return_template