Index: openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl 27 Mar 2018 12:43:27 -0000 1.9
+++ openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl 11 Jun 2018 09:14:55 -0000 1.10
@@ -2040,9 +2040,9 @@
package_id, party_id, object_id, other, datetime_cs
- datetime_cs is the time in seconds since tcl epoch.
+ datetime_cs is the time in seconds since Tcl epoch.
- other can be most any data represented in sql text.
+ other can be most any data represented in SQL text.
By accessing all email headers, various scenarios of OpenACS sender
and replies can be checked to increase likelihood of retrieving
Index: openacs-4/packages/acs-tcl/tcl/exception-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/exception-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl 21 Dec 2017 20:46:06 -0000 1.8
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl 11 Jun 2018 09:14:55 -0000 1.9
@@ -7,12 +7,12 @@
if {$::tcl_version eq "8.5"} {
#
- # In Tcl 8.5, "::try" was not yet a builtin of Tcl
+ # In Tcl 8.5, "::try" was not yet a built-in of Tcl
#
package require try
}
if {[info commands "::try"] eq ""} {
- error "This version of OpenACS requires the ::try command (builtin in 8.6+, package for 8.5"
+ error "This version of OpenACS requires the ::try command (built-in in 8.6+, package for 8.5"
}
ad_proc -private ad_raise {exception {value ""}} {
@@ -55,7 +55,7 @@
Generic code for OpenACS to handle exceptions and traps based on
Tcl's primitives. This implementation is a slight generalization
- of the Tcl 8.6 builtin ::try, which handles ad_script_aborts
+ of the Tcl 8.6 built-in ::try, which handles ad_script_aborts
automatically.
The command "ad_try" should replace the various exception handling
@@ -87,7 +87,7 @@
}]
}
#
- # Call the Tcl 8.6 builtin/compliant ::try in the scope of the caller
+ # Call the Tcl 8.6 built-in/compliant ::try in the scope of the caller
#
#puts stderr EXEC=[list ::try $body {*}$extraTraps {*}$args]
@@ -105,7 +105,7 @@
Generic code for OpenACS to handle exceptions and traps based on
Tcl's primitives. This implementation is a slight generalization
- of the Tcl 8.6 builtin ::try, which handles ad_script_aborts
+ of the Tcl 8.6 built-in ::try, which handles ad_script_aborts
automatically.
The command "ad_try" should replace the various exception handling
@@ -137,7 +137,7 @@
}]
}
#
- # Call the Tcl 8.6 builtin/compliant ::try in the scope of the caller
+ # Call the Tcl 8.6 built-in/compliant ::try in the scope of the caller
#
#puts stderr EXEC=[list ::try $body {*}$extraTraps {*}$args]
Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 9 May 2018 15:33:29 -0000 1.34
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 11 Jun 2018 09:14:55 -0000 1.35
@@ -717,7 +717,7 @@
}
ad_proc -public install::xml::action::location { node } {
- Creates a url location object.
+ Creates a URL location object.
} {
set id [apm_attribute_value -default "" $node id]
set parent [apm_attribute_value -default "" $node parent]
Index: openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl 17 May 2018 07:43:24 -0000 1.5
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl 11 Jun 2018 09:14:55 -0000 1.6
@@ -56,7 +56,7 @@
if {$max_age ne ""} {
set max_age "-expires $max_age"
}
- ns_cache_eval {*}$max_age -- util_memoize $script {*}$script
+ ns_cache_eval {*}$max_age -- util_memoize $script {*}$script
}
# In case, the definition of the function has cached something,
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-init.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/site-nodes-init.tcl 14 May 2018 13:21:52 -0000 1.7
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-init.tcl 11 Jun 2018 09:14:55 -0000 1.8
@@ -16,8 +16,8 @@
#
if {[info commands ns_urlspace] ne "" && [info commands ::xo::db::sql::site_node] ne ""} {
#
- # Prefetch paths, which should not be mapped to the base node /,
- # since these have to to through the classical mapping, where we
+ # Prefetch paths, which should not be mapped to the base node "/",
+ # since these have to go through the classical mapping, where we
# need for every possible path a single cache entry. By mapping eg
# "/resources/*" to the sitenode of "/", we can remove this redundancy.
#
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.109 -r1.110
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 17 May 2018 08:11:37 -0000 1.109
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 11 Jun 2018 09:14:55 -0000 1.110
@@ -900,7 +900,7 @@
@author Peter Marklund
} {
- # Make sure we have a url to work with
+ # Make sure we have a URL to work with
if { $url eq "" } {
if { $node_id eq "" } {
set url "/"
Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 6 Jun 2018 11:11:26 -0000 1.53
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 11 Jun 2018 09:14:55 -0000 1.54
@@ -1662,7 +1662,7 @@
if { [regexp {^(-)(.*)$} $value match sign rest] } {
# Trim the value for any leading zeros
set value $sign[util::trim_leading_zeros $rest]
- # the string might be still to large, so check again...
+ # the string might be still too large, so check again...
if {[string is integer -strict $value]} {
return 1
}
Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.81 -r1.82
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 14 May 2018 13:22:24 -0000 1.81
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 11 Jun 2018 09:14:55 -0000 1.82
@@ -1258,7 +1258,7 @@
continue
}
- # 3: check for any attribute that could contain a url
+ # 3: check for any attribute that could contain a URL
# whether this is acceptable
switch -- $att {
"href" - "src" - "content" - "action" {
@@ -1293,7 +1293,7 @@
}
}
- # regexp is for stuff like 'javascript:' pseudoprotocol, that is not really a url
+ # regexp is for stuff like 'javascript:' pseudoprotocol, that is not really a URL
if {$prot ne "" || [regexp {^(\w+):.*$} $url match prot]} {
# check if protocol is allowed
if {[info exists unallowed_protocol($prot)] ||
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.157 -r1.158
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 May 2018 15:46:26 -0000 1.157
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 11 Jun 2018 09:14:55 -0000 1.158
@@ -969,7 +969,7 @@
} {
Returns all the params in an ns_set with the exception of those in
exclusion_list. If no setid is provide, ns_getform is used. If
- format = url, a url parameter string will be returned. If format = form, a
+ format = url, a URL parameter string will be returned. If format = form, a
block of hidden form fragments will be returned.
export_vars is now the preferred interface.
@@ -1528,7 +1528,7 @@
the prepended location part is constructed by looking at the HTTP 1.1 Host header.
</li>
<li>
- If an URL relative to the current directory is supplied (e.g. foo.tcl)
+ If a URL relative to the current directory is supplied (e.g. foo.tcl)
it prepends location and directory.
</li>
</ul>
Index: openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl 6 Apr 2018 15:12:00 -0000 1.9
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl 11 Jun 2018 09:14:55 -0000 1.10
@@ -1973,8 +1973,8 @@
# Return the minimum of two numeric values
#
# Arguments:
-# a a value
-# b another value
+# a some value
+# b another value
#
# Results:
# Returns the value which is lower than the other.
@@ -1988,8 +1988,8 @@
# Return the maximum of two numeric values
#
# Arguments:
-# a a value
-# b another value
+# a some value
+# b another value
#
# Results:
# Returns the value which is greater than the other.
Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.73 -r1.74
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl 20 May 2018 11:23:00 -0000 1.73
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl 11 Jun 2018 09:14:55 -0000 1.74
@@ -201,7 +201,7 @@
}
if {![info exists ::ad_conn(node_id)]} {
#
- # The following should not be necessary, but is is here for
+ # The following should not be necessary, but is here for
# cases, where some oacs-code assumes wrongly it is running in a
# connection thread (e.g. the site master requires to have a
# node_id and a URL accessible via ad_conn)
Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.56 -r1.57
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 9 May 2018 15:33:34 -0000 1.56
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 11 Jun 2018 09:14:55 -0000 1.57
@@ -1623,7 +1623,7 @@
}
ad_proc string_truncate_middle {{-ellipsis ...} {-len 100} string} {
- cut middle part of a string in case it is to long
+ cut middle part of a string in case it is too long
} {
set string [string trim $string]
if {[string length $string]>$len} {
Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl 11 Jun 2018 09:05:35 -0000 1.6
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl 11 Jun 2018 09:14:55 -0000 1.7
@@ -134,7 +134,7 @@
exists already, it is deleted are recreated empty.
@param user_id the user, under which the operations should be performed
- @param instance the path leading the the instance, e.g. /xowiki
+ @param instance the path leading the instance, e.g. /xowiki
@param folder_name the name of the folder, e.g. "testfolder"
@param fresh create a fresh folder, this means, delete a pre-existing folder first
@return folder_id