Index: openacs-4/packages/survey/www/one-respondent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/one-respondent.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/survey/www/one-respondent.tcl	30 Sep 2017 18:12:52 -0000	1.11
+++ openacs-4/packages/survey/www/one-respondent.tcl	3 Sep 2024 15:37:54 -0000	1.12
@@ -18,10 +18,10 @@
 
 } -validate {
         survey_exists -requires {survey_id} {
-	    if {![db_0or1row survey_exists {}]} {
-		ad_complain "[_ survey.lt_Survey_section_id_does]"
-	    }
-	}
+            if {![db_0or1row survey_exists {}]} {
+                ad_complain "[_ survey.lt_Survey_section_id_does]"
+            }
+        }
 } -properties {
     survey_name:onerow
     description:onerow
@@ -32,7 +32,7 @@
 
 set user_id [ad_conn user_id]
 
-get_survey_info -survey_id $survey_id
+survey::get_info -survey_id $survey_id
 
 set survey_name $survey_info(name)
 set description $survey_info(description)
@@ -46,9 +46,15 @@
 }
 
 db_multirow -extend {answer_summary pretty_submission_date respond_url} responses responses_select {} {
-    set answer_summary [survey_answer_summary_display $response_id 1] 
+    set answer_summary [survey::display_answer_summary $response_id 1]
     set pretty_submission_date [lc_time_fmt $pretty_submission_date_ansi %x]
     set respond_url [export_vars -base respond {survey_id response_id}]
 }
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: