Index: openacs-4/packages/xml-rpc/tcl/validator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/validator-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xml-rpc/tcl/validator-procs.tcl	18 Jun 2019 13:37:26 -0000	1.7
+++ openacs-4/packages/xml-rpc/tcl/validator-procs.tcl	29 Jan 2020 19:37:07 -0000	1.8
@@ -34,9 +34,9 @@
 
 proc validator1.countTheEntities {args} {
     set string $args
-        
-    # For each type of entity, do a regsub -all and return the result as an 
-    # integer, then place it all in a struct with the proper names and return 
+
+    # For each type of entity, do a regsub -all and return the result as an
+    # integer, then place it all in a struct with the proper names and return
     # it.
 
     return \
@@ -192,7 +192,7 @@
 
 proc validate1.manyTypesTest {
     {url http://www.theashergroup.com/RPC2}
-    {int 1} 
+    {int 1}
     {boolean 0}
     {string wazzup}
     {double 3.14159}
@@ -250,7 +250,7 @@
     {startyear 1999}
     {endyear 2001}
 } {
-    
+
     set calendar ""
     # for each year
     for {set y $startyear} {$y <= $endyear} {incr y} {
@@ -275,7 +275,7 @@
                 if {$reald ne $dstr } {
                     break
                 }
-                
+
                 if {($y == 2000) && ($m == 4) && ($d == 1)} {
                     set dayta \
                         [list -struct \
@@ -293,7 +293,7 @@
         }
         set calendar [concat $calendar   [list $y    [list -struct $year]]]
     }
-    
+
     return [xmlrpc::remote_call $url validator1.nestedStructTest -struct $calendar]
 }
 
@@ -305,3 +305,8 @@
     return [xmlrpc::remote_call $url validator1.simpleStructReturnTest -int $number]
 }
 
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: