Index: openacs-4/packages/boomerang/tcl/callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/boomerang/tcl/callback-procs.tcl,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/boomerang/tcl/callback-procs.tcl 3 Jan 2018 19:20:58 -0000 1.1 +++ openacs-4/packages/boomerang/tcl/callback-procs.tcl 9 Feb 2020 15:26:10 -0000 1.1.2.1 @@ -13,50 +13,50 @@ # Provide hooks for installing/uninstalling the package # ad_proc -private after-install {} { - # - # Add additional parameters to acs-subsite - # - foreach {name description default datatype} { - "Enabled" - "Enable/Disable Boomerang for this Subsite" - "0" "number" + # + # Add additional parameters to acs-subsite + # + foreach {name description default datatype} { + "Enabled" + "Enable/Disable Boomerang for this Subsite" + "0" "number" - "BeaconUrl" - "URL for the Beacon. Either a relative URL for the subsite, or and absolute URL pointing to a different Server" - "/boomerang_handler" "string" + "BeaconUrl" + "URL for the Beacon. Either a relative URL for the subsite, or and absolute URL pointing to a different Server" + "/boomerang_handler" "string" - "Sample" - "Integer greater or equal 1, indicating how many requests should be sampled (e.g. 10 means: sample every 10th request)" - "1" "number" + "Sample" + "Integer greater or equal 1, indicating how many requests should be sampled (e.g. 10 means: sample every 10th request)" + "1" "number" - } { - apm_parameter_register "Boomerang$name" \ - $description "acs-subsite" $default $datatype "Boomerang" - } + } { + apm_parameter_register "Boomerang$name" \ + $description "acs-subsite" $default $datatype "Boomerang" + } } ad_proc -private before-uninstall {} { - # - # Remove the package specific parameters from acs-subsite - # - foreach parameter { - Enabled - BeaconUrl - Sample - } { - ns_log notice [list apm_parameter_unregister \ - -parameter "Boomerang$parameter" \ - -package_key "acs-subsite" \ - "" ] - ::try { - apm_parameter_unregister \ - -parameter "Boomerang$parameter" \ - -package_key "acs-subsite" \ - "" - } on error {errMsg} { - ns_log notice "apm_parameter_unregister of parameter Boomerang$parameter lead to: $errMsg" - } - } + # + # Remove the package specific parameters from acs-subsite + # + foreach parameter { + Enabled + BeaconUrl + Sample + } { + ns_log notice [list apm_parameter_unregister \ + -parameter "Boomerang$parameter" \ + -package_key "acs-subsite" \ + "" ] + ::try { + apm_parameter_unregister \ + -parameter "Boomerang$parameter" \ + -package_key "acs-subsite" \ + "" + } on error {errMsg} { + ns_log notice "apm_parameter_unregister of parameter Boomerang$parameter lead to: $errMsg" + } + } } @@ -68,9 +68,15 @@ # ad_proc -public -callback subsite::page_plugin -impl boomerang { } { - Implementation of subsite::page_plugin for boomerang + Implementation of subsite::page_plugin for boomerang } { - ::boomerang::initialize_widget + ::boomerang::initialize_widget } } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: