Index: openacs-4/packages/survey/www/admin/description-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/description-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/survey/www/admin/description-edit.tcl	27 Jun 2015 20:46:15 -0000	1.8
+++ openacs-4/packages/survey/www/admin/description-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$
@@ -19,31 +19,31 @@
     survey_id:key
     {description:text(textarea) {label "[_ survey.Survey_Description]"} {html {rows 10 cols 65}}}
     {desc_html:text(radio)      {label "[_ survey.lt_The_Above_Description]"}
-	                        {options {{"[_ survey.Preformatted_Text]" "pre"}    
-				    {"HTML" "html"} {"[_ survey.Plain_Text]" "plain"}}}}
+                                {options {{"[_ survey.Preformatted_Text]" "pre"}
+                                    {"HTML" "html"} {"[_ survey.Plain_Text]" "plain"}}}}
 } -edit_request {
-    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)
     set description_html_p $survey_info(description_html_p)
     set desc_html ""
     if {$description_html_p=="t"} {
-	set desc_html "html"
+        set desc_html "html"
     } else {
-	set desc_html "plain"
+        set desc_html "plain"
     }
     ad_set_form_values desc_html description
-    
+
 } -validate {
     {description {[string length $description] <= 4000}
     "[_ survey.lt_Description_must_be_l]"
     }
 }
-} -edit_data { 
+} -edit_data {
     if {$desc_html=="pre" || $desc_html=="html"} {
-	set description_html_p t
+        set description_html_p t
     } else {
-	set description_html_p f
+        set description_html_p f
     }
         db_dml survey_update_description ""
 
@@ -54,3 +54,9 @@
 set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.Edit_Description]"]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: