Index: openacs-4/packages/survey/www/admin/survey-preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-preview.tcl,v
diff -u -N -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/survey/www/admin/survey-preview.tcl	17 Dec 2019 16:28:44 -0000	1.10.2.1
+++ openacs-4/packages/survey/www/admin/survey-preview.tcl	9 Feb 2020 16:10:31 -0000	1.10.2.2
@@ -10,16 +10,16 @@
     @cvs-id $Id$
 
 } {
-    
+
     survey_id:naturalnum,notnull
     {section_id:naturalnum ""}
     return_url:localurl,optional
 
 } -validate {
     survey_exists -requires {survey_id} {
-	if {![db_0or1row survey_exists {}]} {
-	    ad_complain "[_ survey.lt_Survey_survey_id_does]"
-	}
+        if {![db_0or1row survey_exists {}]} {
+            ad_complain "[_ survey.lt_Survey_survey_id_does]"
+        }
     }
 } -properties {
 
@@ -44,20 +44,20 @@
 
    if {$description_html_p != "t"} {
        set description [ad_text_to_html -- $description]
-   } 
-   
+   }
 
+
 set context [list "[_ survey.Preview] $name"]
 
 # build a list containing the HTML (generated with survey::display_question) for each question
 set rownum 0
-    
+
 set questions {}
 
 db_foreach survey_sections {} {
 
     db_foreach question_ids_select {} {
-	lappend questions [survey::display_question $question_id]
+        lappend questions [survey::display_question $question_id]
     }
 
 
@@ -67,3 +67,9 @@
 set form_vars [export_vars -form {section_id survey_id}]
 ad_return_template
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: