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.7 -r1.8 --- openacs-4/packages/survey/www/admin/respondents.tcl 21 Jan 2005 17:24:28 -0000 1.7 +++ openacs-4/packages/survey/www/admin/respondents.tcl 8 Aug 2006 21:27:13 -0000 1.8 @@ -28,11 +28,11 @@ 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} {$first_names}] \ - [list last_name [_ survey.Last_Name] "" {$last_name}] \ - [list email [_ survey.Email_Address] "" {$email}] \ - [list actions [_ survey.Actions] no_sort {[_ survey.View]}] \ - ] + [list first_names "[_ survey.First_Name]" {upper(first_names) $order} {$first_names}] \ + [list last_name "[_ survey.Last_Name]" "" {$last_name}] \ + [list email "[_ survey.Email_Address]" "" {$email}] \ + [list actions "[_ survey.Actions]" no_sort {[_ survey.View]}] \ + ] set respondents_table [ad_table -Torderby $orderby -Textra_vars {survey_id} -Tmissing_text "[_ survey.No_data_found]" select_respondents {} $table_def]