Index: openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl	4 Jun 2006 00:45:23 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl	7 Aug 2017 23:47:47 -0000	1.4
@@ -45,11 +45,11 @@
             #########################################################
             # create a child folder
             #########################################################
-           set child_folder_id [db_nextval "acs_object_id_seq"]
+            set child_folder_id [db_nextval "acs_object_id_seq"]
             set returned_child_folder_id [content::folder::new \
                                               -folder_id $child_folder_id \
                                               -parent_id $first_folder_id \
-                                          -name "test_folder_${first_folder_id}"]
+                                              -name "test_folder_${first_folder_id}"]
             #########################################################
             # check if child is a subfolder of parent
             #########################################################
@@ -67,4 +67,9 @@
             aa_true "Parent is not subfolder of child" [string equal "f" $is_subfolder]            
             
         }
-}
\ No newline at end of file
+}
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: