Index: openacs-4/packages/survey/www/admin/one-respondent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one-respondent.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/survey/www/admin/one-respondent.tcl	21 Jan 2005 17:24:28 -0000	1.4
+++ openacs-4/packages/survey/www/admin/one-respondent.tcl	5 Mar 2008 21:43:07 -0000	1.5
@@ -38,10 +38,11 @@
 }
 
 set context [_ survey.One_Respondent]
- 
 
-db_multirow -extend {response_display} responses get_responses {} {
-set response_display [survey_answer_summary_display $response_id 1 ]
+
+db_multirow -extend {response_display respond_url} responses get_responses {} {
+    set response_display [survey_answer_summary_display $response_id 1 ]
+    set respond_url [export_vars -base respond {response_id survey_id user_id}]
 }
 
 ad_return_template