Index: openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	8 Apr 2013 15:50:25 -0000	1.19
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	7 Aug 2017 23:47:59 -0000	1.20
@@ -62,6 +62,7 @@
     @param default what to return if we don't find a value. Defaults to returning the empty string.
 
     @return The string trimmed (leading and trailing spaces removed) parameter value
+    @see parameter::get
 } {
 
     # Is there a parameter by this name in the parameter file?  If so, it takes precedence.
@@ -98,8 +99,7 @@
                 set value 0
             }
         } errmsg] } {
-            global errorInfo
-            ns_log Error "Parameter $parameter not a boolean:\n$errorInfo"
+                        ns_log Error "Parameter $parameter not a boolean:\n$::errorInfo"
             set value $default
         }
     }
@@ -145,17 +145,19 @@
     @param default what to return if we don't find a value. Defaults to returning the empty string.
 
     @return The string trimmed (leading and trailing spaces removed) parameter value
+    @see parameter::get_global_value
 } {
 
     if {$package_id eq ""} {
         set package_id [ad_requested_object_id]
     }
     set value ""
 
-    # 1. If there is not package_id provided, check whether there is a
-    # parameter by this name in the parameter file?  Actually,
-    # ad_parameter_from_file is a misnomer, since the it checks ns_config
-    # values 
+    # 1. check whether there is a parameter by this name specified for
+    # the packagin in the parameter file.  The name
+    # ad_parameter_from_file is a misnomer, since the it checks
+    # ns_config values
+    #
     if {$package_id ne ""} {
 	set package_key ""
         # This can fail at server startup--OpenACS calls parameter::get to
@@ -195,8 +197,7 @@
                 set value 0
             }
         } errmsg] } {
-            global errorInfo
-            ns_log Error "Parameter $parameter not a boolean:\n$errorInfo"
+                        ns_log Error "Parameter $parameter not a boolean:\n$::errorInfo"
             set value $default
         }
     }
@@ -265,3 +266,9 @@
 
     return $value
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: