Index: openacs-4/packages/survey/www/admin/respondents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/respondents.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/survey/www/admin/respondents.tcl	13 Jan 2005 13:58:45 -0000	1.6
+++ openacs-4/packages/survey/www/admin/respondents.tcl	21 Jan 2005 17:24:28 -0000	1.7
@@ -25,14 +25,14 @@
 get_survey_info -survey_id $survey_id
 set survey_name $survey_info(name)
 
-set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Respondents]"]
+set context [list [list "one?[export_url_vars survey_id]" $survey_info(name)] [_ survey.Respondents]]
 
 set table_def [list \
-		   [list first_names "[_ survey.First_Name]" {upper(first_names) $order} {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$first_names</a></td>}] \
-		   [list last_name "[_ survey.Last_Name]" "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$last_name</a></td>}] \
-		   [list email "[_ survey.Email_Address]" "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$email</a></td>}] \
-		   [list actions "[_ survey.Actions]" no_sort {<td><a href="one-respondent?[export_vars {user_id survey_id}]"><img src="../graphics/view.gif" border="0" alt="[_ survey.View]"></a></td>}] \
-		   ]
+		   [list first_names [_ survey.First_Name] {upper(first_names) $order} {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$first_names</a></td>}] \
+		   [list last_name [_ survey.Last_Name] "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$last_name</a></td>}] \
+		   [list email [_ survey.Email_Address] "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$email</a></td>}] \
+		   [list actions [_ survey.Actions] no_sort {<td><a href="one-respondent?[export_vars {user_id survey_id}]"><img src="../graphics/view.gif" border="0" alt="[_ survey.View]"></a></td>}] \
+                  ]
 
 set respondents_table [ad_table -Torderby $orderby -Textra_vars {survey_id} -Tmissing_text "[_ survey.No_data_found]" select_respondents {}  $table_def]