Index: openacs-4/packages/xolp/tcl/xolp-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-util-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xolp/tcl/xolp-util-procs.tcl	11 Apr 2019 11:32:04 -0000	1.3
+++ openacs-4/packages/xolp/tcl/xolp-util-procs.tcl	12 Apr 2019 12:09:58 -0000	1.4
@@ -106,21 +106,28 @@
 
     ad_proc random_earlier_timestamp {ts} {
         Simple function to generate from an end_timestamp a "random" begin_timestamp,
-        which is within sensible boundaries.
+      which is within sensible boundaries.
     } {
-        set ts [clock scan $ts -format "%Y-%m-%d %T z" -timezone :UTC]
-        clock format [clock add $ts -[expr {int(rand()*180)}] minute] -format "%Y-%m-%d %T z" -timezone :UTC
+      set ts [clock scan $ts -format "%Y-%m-%d %T z" -timezone :UTC]
+      clock format [clock add $ts -[expr {int(rand()*180)}] minute] -format "%Y-%m-%d %T z" -timezone :UTC
     }
 
     ad_proc -private get_testcase_for_documentation {-case:required {-index 3}} {
     } {
-        package require textutil
-        foreach t [nsv_get aa_test cases] {
-            lassign $t id desc file pkg cats inits err body _
-            if {$id eq $case && $pkg eq "xolp"} {
-                return "<pre><code>[regsub "\n\n" [textutil::undent [lindex $body 0 $index]] ""]</code></pre>"
-            }
+      package require textutil
+      foreach t [nsv_get aa_test cases] {
+        lassign $t id desc file pkg cats inits err body _
+        if {$id eq $case && $pkg eq "xolp"} {
+          return "<pre><code>[regsub "\n\n" [textutil::undent [lindex $body 0 $index]] ""]</code></pre>"
         }
+      }
     }
 
-}
+  }
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: