Index: openacs-4/contrib/packages/survey/www/admin/respondents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/respondents.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/survey/www/admin/respondents.tcl	16 Mar 2005 12:26:31 -0000	1.3
+++ openacs-4/contrib/packages/survey/www/admin/respondents.tcl	16 Mar 2005 18:02:18 -0000	1.4
@@ -27,13 +27,13 @@
 
 set context [list [list "one?[export_url_vars survey_id]" $survey_info(name)] [_ survey.Respondents]]
 
-set table_def {
-    {first_names "[_ survey.First_Name]" {upper(first_names) $order} {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$first_names</a></td>}}
-    {last_name "[_ survey.Last_Name]" "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$last_name</a></td>}}
-    {email "[_ survey.Email_Address]" "" {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$email</a></td>}}
-    {actions "[_ survey.Actions]" no_sort {<td><a href="one-respondent?[export_vars {user_id survey_id}]"><img src="../graphics/view.gif" border="0" alt="View"></a></td>}}
-}
+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="View"></a></td>}] ]
 
+
 set respondents_table [ad_table -Torderby $orderby -Textra_vars {survey_id} select_respondents {}  $table_def]
 
 ad_return_template