Index: openacs-4/packages/survey/www/view-attachment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/view-attachment.tcl,v
diff -u -N -r1.4.4.1 -r1.4.4.2
--- openacs-4/packages/survey/www/view-attachment.tcl	16 Dec 2019 17:14:38 -0000	1.4.4.1
+++ openacs-4/packages/survey/www/view-attachment.tcl	9 Feb 2020 16:10:31 -0000	1.4.4.2
@@ -2,11 +2,11 @@
 
   View the attachment contents of a given response.
   This page has been modified to use the CR for attachment storage dave@thedesignexperience.org
-  
+
   @param  response_id  id of complete survey response submitted by user
   @param  question_id  id of question for which this file was submitted as an answer
 
-  
+
   @author jbank@arsdigita.com
   @author nstrug@arsdigita.com
   @date   28th September 2000
@@ -18,11 +18,11 @@
 
 } -validate {
     attachment_exists -requires {response_id question_id} {
-	db_1row get_file_info {}
+        db_1row get_file_info {}
 
-	if { $file_type eq "" } {
-	    ad_complain "[_ survey.lt_Couldnt_find_attachment]"
-	}
+        if { $file_type eq "" } {
+            ad_complain "[_ survey.lt_Couldnt_find_attachment]"
+        }
     }
 }
 
@@ -31,3 +31,9 @@
 cr_write_content -revision_id $revision_id
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: