Index: openacs-4/packages/survey/www/admin/response-drill-down.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/response-drill-down.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/survey/www/admin/response-drill-down.tcl	21 Jan 2018 00:39:44 -0000	1.7
+++ openacs-4/packages/survey/www/admin/response-drill-down.tcl	3 Sep 2024 15:37:54 -0000	1.8
@@ -26,7 +26,7 @@
 # which it is part
 
 set question_exists_p [db_0or1row get_question_text ""]
-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)
 
@@ -55,3 +55,9 @@
      "[_ survey.One_Response]"]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: