Index: openacs-4/packages/survey/www/admin/name-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/name-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/survey/www/admin/name-edit.tcl	27 Jun 2015 20:46:15 -0000	1.8
+++ openacs-4/packages/survey/www/admin/name-edit.tcl	3 Sep 2024 15:37:54 -0000	1.9
@@ -4,7 +4,7 @@
 
     @param  section_id  integer denoting survey whose description we're changing
 
-    @author Jin Choi (jsc@arsdigita.com) 
+    @author Jin Choi (jsc@arsdigita.com)
     @author nstrug@arsdigita.com
     @date   February 16, 2000
     @cvs-id $Id$
@@ -15,27 +15,27 @@
     {description:html ""}
 }
 
-get_survey_info -survey_id $survey_id
+survey::get_info -survey_id $survey_id
 set survey_name "$survey_info(name)"
 
 permission::require_permission -object_id $survey_id -privilege survey_modify_survey
 
 ad_form -name edit-name -form {
     survey_id:key
     {name:text(text) {label "[_ survey.Survey_Name_1]"} {html {size 80}}}
-	{description:text(textarea) {label "[_ survey.Description_1]"} 
-	{html {rows 10 cols 65}}}
-	{description_html_p:text(radio)      {label "[_ survey.lt_The_Above_Description]"}
-	{options {{"[_ survey.Preformatted_Text]" "f"}
-	       {"HTML" "t"} }}
-	       {value "pre"}}
+        {description:text(textarea) {label "[_ survey.Description_1]"}
+        {html {rows 10 cols 65}}}
+        {description_html_p:text(radio)      {label "[_ survey.lt_The_Above_Description]"}
+        {options {{"[_ survey.Preformatted_Text]" "f"}
+               {"HTML" "t"} }}
+               {value "pre"}}
 
 } -validate {
     {name {[string length $name] <= 4000}
     "[_ survey.lt_Survey_Name_must_be_l]"
     }
 } -edit_request {
-    get_survey_info -survey_id $survey_id
+    survey::get_info -survey_id $survey_id
     set name "$survey_info(name)"
     set description "$survey_info(description)"
     set description_html_p "$survey_info(description_html_p)"
@@ -50,3 +50,9 @@
 ad_return_template
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: