Index: openacs-4/packages/survey/www/admin/view-text-responses.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/view-text-responses.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/survey/www/admin/view-text-responses.tcl	27 Jun 2015 20:46:16 -0000	1.6
+++ openacs-4/packages/survey/www/admin/view-text-responses.tcl	3 Sep 2024 15:37:54 -0000	1.7
@@ -17,7 +17,7 @@
 
 db_1row one_question ""
 
-get_survey_info -section_id $section_id
+survey::get_info -section_id $section_id
 set survey_name $survey_info(name)
 set survey_id $survey_info(survey_id)
 
@@ -41,3 +41,9 @@
 db_multirow responses all_responses_to_question {}
 
 set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.lt_Responses_to_Question]"]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: