Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.40.2.6 -r1.40.2.7
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 21 Apr 2017 15:43:47 -0000 1.40.2.6
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 30 Jun 2017 17:23:06 -0000 1.40.2.7
@@ -398,7 +398,7 @@
if { $library eq "tclwebtest" } {
# kludge: until tclwebtest installs itself in the proper
- # place following the tcl way, we use this absolute path
+ # place following the Tcl way, we use this absolute path
# hack.
set tclwebtest_absolute_path "/usr/local/tclwebtest/lib"
if { ![info exists ::auto_path] || [lsearch $::auto_path $tclwebtest_absolute_path] == -1 } {
Index: openacs-4/packages/acs-automated-testing/tcl/http.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/Attic/http.tcl,v
diff -u -r1.2.2.5 -r1.2.2.6
--- openacs-4/packages/acs-automated-testing/tcl/http.tcl 21 Apr 2017 15:43:47 -0000 1.2.2.5
+++ openacs-4/packages/acs-automated-testing/tcl/http.tcl 30 Jun 2017 17:23:07 -0000 1.2.2.6
@@ -1133,7 +1133,7 @@
# The spec says: "non-alphanumeric characters are replaced by '%HH'"
# 1 leave alphanumerics characters alone
# 2 Convert every other character to an array lookup
- # 3 Escape constructs that are "special" to the tcl parser
+ # 3 Escape constructs that are "special" to the Tcl parser
# 4 "subst" the result, doing all the array substitutions
regsub -all \[^$alphanumeric\] $string {$formMap(&)} string
@@ -1164,7 +1164,7 @@
# http::CharsetToEncoding --
#
-# Tries to map a given IANA charset to a tcl encoding.
+# Tries to map a given IANA charset to a Tcl encoding.
# If no encoding can be found, returns binary.
#
Index: openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl,v
diff -u -r1.2.12.4 -r1.2.12.5
--- openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 21 Apr 2017 15:43:47 -0000 1.2.12.4
+++ openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 30 Jun 2017 17:23:07 -0000 1.2.12.5
@@ -84,7 +84,7 @@
} \
-new_data {
- # Open the automated tests tcl file
+ # Open the automated tests Tcl file
# of this package key and add the
# test code to the script, then
# do an eval to load the test proc.
Index: openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl 22 Apr 2017 18:26:04 -0000 1.2.2.2
+++ openacs-4/packages/acs-bootstrap-installer/installer/tcl/zz-postload.tcl 30 Jun 2017 17:24:16 -0000 1.2.2.3
@@ -12,7 +12,7 @@
ns_log "Notice" "Done."
# This should probably be moved to the end of bootstrap.tcl once all files are
-# weeded out of the tcl directory.
+# weeded out of the Tcl directory.
ns_log "Notice" "Executing initialization code blocks..."
foreach init_item [nsv_get ad_after_server_initialization .] {
array set init $init_item
Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl,v
diff -u -r1.15.2.2 -r1.15.2.3
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl 2 Jan 2016 14:31:29 -0000 1.15.2.2
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl 30 Jun 2017 17:25:01 -0000 1.15.2.3
@@ -7,8 +7,8 @@
# Walter McGinnis (wtem@olywa.net), 2001-09-23
# based on original photo-album package code by Tom Baginski
-# Daveb: unless someone has a good reason this should go away for openacs 5.1
-# we should promote a tcl api to the cr instead of each package accessing
+# Daveb: unless someone has a good reason this should go away for OpenACS 5.1
+# we should promote a Tcl api to the cr instead of each package accessing
# the pl/sql procs directly.
ad_schedule_proc -thread t -schedule_proc ns_schedule_daily [list 22 0] cr_delete_scheduled_files
Index: openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl 27 Oct 2014 16:39:12 -0000 1.5
+++ openacs-4/packages/acs-content-repository/tcl/test/content-image-test-procs.tcl 30 Jun 2017 17:25:01 -0000 1.5.2.1
@@ -1,5 +1,5 @@
ad_library {
- Procedures to test content::image tcl API
+ Procedures to test content::image Tcl API
@author Hugh Brock
@creation-date 2006-01-17
Index: openacs-4/packages/acs-core-docs/www/files/note-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/note-procs.tcl,v
diff -u -r1.2.22.1 -r1.2.22.2
--- openacs-4/packages/acs-core-docs/www/files/note-procs.tcl 10 Sep 2015 08:21:20 -0000 1.2.22.1
+++ openacs-4/packages/acs-core-docs/www/files/note-procs.tcl 30 Jun 2017 17:25:35 -0000 1.2.22.2
@@ -16,7 +16,7 @@
} {
This proc retrieves a note. This is annoying code that is only
here because we wanted to give you a working tutorial in 5.0 that
- uses content repository, but the tcl api for content repository
+ uses content repository, but the Tcl api for content repository
won't be complete until 5.1. At least we can use the pregenerated views for select and edit.
} {
upvar 1 $array row
Index: openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl,v
diff -u -r1.2.22.1 -r1.2.22.2
--- openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl 10 Sep 2015 08:21:21 -0000 1.2.22.1
+++ openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl 30 Jun 2017 17:25:35 -0000 1.2.22.2
@@ -16,7 +16,7 @@
} {
This proc retrieves a note. This is annoying code that is only
here because we wanted to give you a working tutorial in 5.0 that
- uses content repository, but the tcl api for content repository
+ uses content repository, but the Tcl api for content repository
won't be complete until 5.1. At least we can use the pregenerated views for select and edit.
} {
upvar 1 $array row
Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 21 Apr 2017 15:50:24 -0000 1.9.2.2
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 30 Jun 2017 17:26:20 -0000 1.9.2.3
@@ -12,7 +12,7 @@
nsv_set ds_properties enabled_p [parameter::get -package_id [ds_instance_id] -parameter EnabledOnStartupP -default 0]
- # Take the IP list (space or comma separated) and turn it into a tcl list.
+ # Take the IP list (space or comma separated) and turn it into a Tcl list.
set IPs [list]
foreach ip [lsort -unique [split [parameter::get -package_id [ds_instance_id] -parameter EnabledIPs -default *] { ,}]] {
if {$ip eq "*"} {
Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.55.2.11 -r1.55.2.12
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 20 Sep 2016 11:32:21 -0000 1.55.2.11
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 30 Jun 2017 17:26:20 -0000 1.55.2.12
@@ -442,7 +442,7 @@
ad_proc -public ds_user_select_widget {} {
Build a select widget for all users in the system, for quick user switching. Very
- expensive (returns a big file) for openacs instances with a large number of users,
+ expensive (returns a big file) for OpenACS instances with a large number of users,
so perhaps best used on test instances.
} {
set user_id [ad_conn user_id]
@@ -610,7 +610,7 @@
}
ad_proc -private ds_watch_packages {} {
- Watch tcl libraries and xql files for packages listed
+ Watch Tcl libraries and xql files for packages listed
in the PackageWatchList parameter on server startup.
@author Peter Marklund
Index: openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl 26 Oct 2013 09:33:21 -0000 1.2
+++ openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl 30 Jun 2017 17:26:59 -0000 1.2.2.1
@@ -13,7 +13,7 @@
set having_clauses [list]
set tables [list users]
- # turn all the parameters in the ns_set into tcl vars
+ # turn all the parameters in the ns_set into Tcl vars
ad_ns_set_to_tcl_vars -duplicates fail $set_id
# if we are using a user_class, just get the info
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 2 Jan 2016 17:50:12 -0000 1.26.2.2
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 30 Jun 2017 17:27:41 -0000 1.26.2.3
@@ -209,7 +209,7 @@
} {
Builds the statement to call from the provided metadata.
- @param impl_alias tcl or plpgsql proc to call
+ @param impl_alias Tcl or plpgsql proc to call
@param impl_pl programmimg language of the proc to call (TCL or PLPGSQL)
@param arguments list of argument names
Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v
diff -u -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl 10 Sep 2015 08:21:33 -0000 1.14.2.1
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl 30 Jun 2017 17:27:41 -0000 1.14.2.2
@@ -88,7 +88,7 @@
owner: Owner of the implementation, use the package-key.
name: Name of your implementation.
name: Pretty name of your implementation. You'd typically use this when displaying the service contract implementation through a UI.
- aliases: Specification of the tcl procedures for each of the service contract's operations.
+ aliases: Specification of the Tcl procedures for each of the service contract's operations.
The aliases section is itself an array-list. The keys are the operation names