Index: openacs-4/packages/boomerang/tcl/boomerang-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/boomerang/tcl/boomerang-init.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/boomerang/tcl/boomerang-init.tcl	3 Apr 2018 21:30:47 -0000	1.2
+++ openacs-4/packages/boomerang/tcl/boomerang-init.tcl	9 Feb 2020 15:26:10 -0000	1.2.2.1
@@ -1,5 +1,3 @@
-
-
 #
 # We should get the URL from the parameter and register this for every
 # toplevel subsite, on which boomerang is enabled
@@ -9,26 +7,32 @@
     set node_info [site_node::get_from_url -url $url]
     set subsite_id [dict get $node_info object_id]
     set enabled_p [parameter::get \
-		       -package_id $subsite_id \
-		       -parameter BoomerangEnabled \
-		       -default 0]
+                       -package_id $subsite_id \
+                       -parameter BoomerangEnabled \
+                       -default 0]
     if {$enabled_p} {
-	set beaconURL [parameter::get \
-			   -package_id $subsite_id \
-			   -parameter BoomerangBeaconUrl \
-			   -default /boomerang_handler]
-	#
-	# Register the beaconURL only, when it is not a fully qualified URL
-	#
-	if {[regexp {^https?://} $beaconURL] == 0} {
-	    foreach httpMethod {GET POST} {
-		ns_register_proc $httpMethod ${url}[string trimleft $beaconURL /] {
-		    set t0 [clock clicks -microseconds]
-		    boomerang::handler record -ns_set [ns_getform] -peeraddr [ad_conn peeraddr]
-		    ns_log notice "boomerang beacon [expr {[clock clicks -microseconds] - $t0}] microseconds"
-		    ns_return 204 text/plain ""
-		}
-	    }
-	}
+        set beaconURL [parameter::get \
+                           -package_id $subsite_id \
+                           -parameter BoomerangBeaconUrl \
+                           -default /boomerang_handler]
+        #
+        # Register the beaconURL only, when it is not a fully qualified URL
+        #
+        if {[regexp {^https?://} $beaconURL] == 0} {
+            foreach httpMethod {GET POST} {
+                ns_register_proc $httpMethod ${url}[string trimleft $beaconURL /] {
+                    set t0 [clock clicks -microseconds]
+                    boomerang::handler record -ns_set [ns_getform] -peeraddr [ad_conn peeraddr]
+                    ns_log notice "boomerang beacon [expr {[clock clicks -microseconds] - $t0}] microseconds"
+                    ns_return 204 text/plain ""
+                }
+            }
+        }
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: