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.4.1 -r1.8.4.2 --- openacs-4/packages/survey/www/admin/name-edit.tcl 17 Dec 2019 16:28:44 -0000 1.8.4.1 +++ openacs-4/packages/survey/www/admin/name-edit.tcl 9 Feb 2020 16:10:31 -0000 1.8.4.2 @@ -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$ @@ -23,12 +23,12 @@ 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} @@ -50,3 +50,9 @@ ad_return_template + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: