Index: openacs-4/packages/acs-tcl/tcl/image-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/image-procs.tcl,v diff -u -N -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/acs-tcl/tcl/image-procs.tcl 10 Sep 2015 08:21:57 -0000 1.2.2.1 +++ openacs-4/packages/acs-tcl/tcl/image-procs.tcl 22 Apr 2017 18:11:54 -0000 1.2.2.2 @@ -14,7 +14,7 @@ } { Get the width and height of an image file. The width and height are returned as 'height' and 'width' entries in the array named in the parameter. - Uses ImageMagick instead of aolserver function because it can handle more than + Uses ImageMagick instead of AOLserver function because it can handle more than just gifs and jpegs. The plan is to add the ability to get more details later. @param filename Name of the image file in the file system. 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 -N -r1.30.2.1 -r1.30.2.2 --- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 10 Sep 2015 08:21:57 -0000 1.30.2.1 +++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 22 Apr 2017 18:11:54 -0000 1.30.2.2 @@ -21,7 +21,7 @@ } ad_proc -private ::install::xml::action::source { node } { - Source an install.xml file, sql file or tcl script during execution of + Source an install.xml file, sql file or Tcl script during execution of the current install.xml. If no type attribute is specified then this tag will attempt to guess Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v diff -u -N -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/acs-tcl/tcl/json-procs.tcl 10 Sep 2015 08:21:57 -0000 1.6.2.1 +++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl 22 Apr 2017 18:11:54 -0000 1.6.2.2 @@ -96,7 +96,7 @@ ad_proc util::json::parse {jsonText} { - Parse JSON text into a tcl list. + Parse JSON text into a Tcl list. @param jsonText JSON text @return List containing the object represented by jsonText Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v diff -u -N -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 10 Sep 2015 08:21:57 -0000 1.14.2.1 +++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 22 Apr 2017 18:11:54 -0000 1.14.2.2 @@ -26,7 +26,7 @@ # # Flush the existing util memoize cache to get rid of any previous # caching conventions. This is actually just needed for the - # upgrade from an aolserver based util_memoize cache to the + # upgrade from an AOLserver based util_memoize cache to the # NaviServer based one, since the old version kept pairs of values # and timestamps, which are not needed, but which might cause # confusions, when retrieved later. Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v diff -u -N -r1.32.2.10 -r1.32.2.11 --- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 14 Feb 2017 20:07:27 -0000 1.32.2.10 +++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 22 Apr 2017 18:11:54 -0000 1.32.2.11 @@ -310,7 +310,7 @@ proc ad_no_uplevel_patterns {} { set regexp_patterns [list] lappend regexp_patterns "*/pvt/home.tcl" - # tcl files in the root directory + # Tcl files in the root directory lappend regexp_patterns "^/\[^/\]*\.tcl\$" lappend regexp_patterns "/admin*" } Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -N -r1.118.2.42 -r1.118.2.43 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 15 Apr 2017 09:38:44 -0000 1.118.2.42 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 22 Apr 2017 18:11:54 -0000 1.118.2.43 @@ -565,7 +565,7 @@ sec_handler_reset ad_conn -reset if {[ns_info name] eq "NaviServer"} { - # ns_conn id the internal counter by aolserver 4.5 and + # ns_conn id the internal counter by AOLserver 4.5 and # NaviServer. The semantics of the counter were different in # Aolserver 4.0, when we require at least AolServer 4.5 the # server test could go away. @@ -1628,7 +1628,7 @@ It should be called only when the method to return the data to the client is going to be ns_return. In other cases, e.g. ns_returnfile, one can assume that the returned content is not dynamic and can in - fact be cached. Besides that, aolserver implements its own handling + fact be cached. Besides that, AOLserver implements its own handling of Last-Modified headers with ns_returnfile. Also it should be called as late as possible - shortly before ns_return, so that other code has the chance to set no_cache_control_p to 1 before Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -N -r1.78.2.53 -r1.78.2.54 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 21 Apr 2017 19:11:30 -0000 1.78.2.53 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 22 Apr 2017 18:11:54 -0000 1.78.2.54 @@ -122,7 +122,7 @@ set session_last_renew_time [lindex $cookie_data 3] if {![string is integer -strict $session_last_renew_time]} { # This only happens if the session cookie is old style - # previous to openacs 5.7 and does not have session review time + # previous to OpenACS 5.7 and does not have session review time # embedded. # Assume cookie expired and force login handler set session_last_renew_time 0 @@ -1817,7 +1817,7 @@ set sdriver [security::driver] # nsopenssl 3 has variable locations for the secure - # port, openacs standardized at: + # port, OpenACS standardized at: if { $sdriver eq "nsopenssl" } { set port [ns_config -int "ns/server/[ns_info server]/module/$sdriver/ssldriver/users" port 443] Index: openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl,v diff -u -N -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl 10 Sep 2015 08:21:59 -0000 1.9.2.1 +++ openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl 22 Apr 2017 18:11:54 -0000 1.9.2.2 @@ -88,7 +88,7 @@ we're using IP:port to uniquely identify the canonical server, since hostname or IP does not always uniquely identify an instance of - aolserver (for instance, if we have the aolservers sitting behind a + AOLserver (for instance, if we have the aolservers sitting behind a load balancer). } { set canonical_server [parameter::get -package_id [ad_acs_kernel_id] -parameter CanonicalServer] 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 -N -r1.36.2.38 -r1.36.2.39 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 21 Apr 2017 16:32:32 -0000 1.36.2.38 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 22 Apr 2017 18:11:54 -0000 1.36.2.39 @@ -172,7 +172,7 @@ # ad_proc -private ad_page_contract_set_validation_passed { key } { - Call this to signal that a certain validation block has passed successfuly. + Call this to signal that a certain validation block has passed successfully. This can be tested later using ad_page_contract_get_validation_passed_p. @param key Is the key, in the format of either formal_name or formal_name:flag_name. @@ -494,11 +494,11 @@
Each validation block can also have a -requires { foo:integer } switch,
- to ensure that the check only gets executed if foo was successfuly validated as an integer.
+ to ensure that the check only gets executed if foo was successfully validated as an integer.
Index: openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl,v diff -u -N -r1.3.10.1 -r1.3.10.2 --- openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl 10 Sep 2015 08:22:00 -0000 1.3.10.1 +++ openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl 22 Apr 2017 18:11:54 -0000 1.3.10.2 @@ -24,8 +24,8 @@ parent_node_object args } { - Returns a tdom object to the args given - If the tdom object doesn't exist or the value is null, return null + Returns a tDOM object to the args given + If the tDOM object doesn't exist or the value is null, return null
Example -----------------------------------------------------
@@ -56,7 +56,7 @@
ad_proc -public tdom::get_parent_node_object {
child_node_object
} {
- Returns a tdom object for the parent node of the child node object passed in
+ Returns a tDOM object for the parent node of the child node object passed in
} {
set parent_node_object ""
catch {set parent_node_object [$child_node_object parentNode]}
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 -N -r1.140.2.73 -r1.140.2.74
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 21 Apr 2017 16:32:32 -0000 1.140.2.73
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 22 Apr 2017 18:11:54 -0000 1.140.2.74
@@ -1835,25 +1835,25 @@
ad_proc -public ad_urlencode_path { string } {
Encode provided string with url-encoding for path segments;
- same as ad_urlencode, since aolserver does not support this difference
+ same as ad_urlencode, since AOLserver does not support this difference
} {
return [ad_urlencode $string]
}
ad_proc -public ad_urldecode_path { string } {
Decode provided string with url-encoding for path segments;
- same as ns_urldecode, since aolserver does not support this difference
+ same as ns_urldecode, since AOLserver does not support this difference
} {
return [ns_urldecode $string]
}
ad_proc -public ad_urlencode_query { string } {
Encode provided string with url-encodingfor path segments;
- same as ad_urlencode, since aolserver does not support this difference
+ same as ad_urlencode, since AOLserver does not support this difference
} {
return [ad_urlencode $string]
}
ad_proc -public ad_urldecode_query { string } {
Decode provided string with url-encoding for path segments;
- same as ns_urldecode, since aolserver does not support this difference
+ same as ns_urldecode, since AOLserver does not support this difference
} {
return [ns_urldecode $string]
}
@@ -3886,7 +3886,7 @@
#
# If one of these phrases is found, we construct a test SQL query
# that incorporates the variable into its WHERE clause and ask
- # the database to parse it. If the query does parse successfuly,
+ # the database to parse it. If the query does parse successfully,
# then we know that the suspicious user input would result in a
# executing SQL that we didn't write, so we abort processing this
# HTTP request.
Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.41.2.5 -r1.41.2.6
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 27 Mar 2017 10:33:30 -0000 1.41.2.5
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 22 Apr 2017 18:11:54 -0000 1.41.2.6
@@ -522,15 +522,15 @@
# verify the on_error clause is called
set error_called 0
catch {db_transaction { set foo } on_error {set error_called 1}} errMsg
- aa_equals "error clause invoked on tcl error" \
+ aa_equals "error clause invoked on Tcl error" \
$error_called 1
- # Check that the tcl error propigates up from the code block
+ # Check that the Tcl error propigates up from the code block
set error_p [catch {db_transaction { error "BAD CODE"}} errMsg]
aa_equals "Tcl error propigates to errMsg from code block" \
$errMsg "Transaction aborted: BAD CODE"
- # Check that the tcl error propigates up from the on_error block
+ # Check that the Tcl error propigates up from the on_error block
set error_p [catch {db_transaction {set foo} on_error { error "BAD CODE"}} errMsg]
aa_equals "Tcl error propigates to errMsg from on_error block" \
$errMsg "BAD CODE"
Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v
diff -u -N -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 21 Apr 2017 16:32:32 -0000 1.10.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 22 Apr 2017 18:11:54 -0000 1.10.2.4
@@ -7,7 +7,7 @@
}
aa_register_case -cats {smoke production_safe} files__tcl_file_syntax_errors {
- Test all known tcl files for successful parsing "(in the [info complete] sense at least)" and other common errors.
+ Test all known Tcl files for successful parsing "(in the [info complete] sense at least)" and other common errors.
@author Jeff Davis davis@xarg.net
} {
@@ -23,7 +23,7 @@
aa_log "Checks starting from $startdir"
- #inspect every tcl file in the directory tree starting with $startdir
+ #inspect every Tcl file in the directory tree starting with $startdir
foreach file [ad_find_all_files -check_file_func ::tcl_p $startdir] {
incr nfiles
@@ -33,7 +33,7 @@
# Check that the file parses
if {! [info complete $data] } {
- aa_log_result fail "$file parses successfuly"
+ aa_log_result fail "$file parses successfully"
} else {
incr good
}
@@ -56,7 +56,7 @@
aa_log "Checks starting from $startdir"
set count 0
- #inspect every tcl file in the directory tree starting with $startdir
+ #inspect every Tcl file in the directory tree starting with $startdir
foreach file [ad_find_all_files -check_file_func ::tcl_p $startdir] {
if {[string match "*/acs-tcl/tcl/test/file-test-procs.tcl" $file]} continue
@@ -71,7 +71,7 @@
}
- aa_log "Checked $count tcl files"
+ aa_log "Checked $count Tcl files"
}
aa_register_case -cats {smoke production_safe} files__check_info_files {
@@ -190,9 +190,9 @@
aa_register_case -cats {smoke} files__check_xql_files {
Check for some common errors in the xql files like
- missing rdbms, missing corresponding tcl files, etc.
+ missing rdbms, missing corresponding Tcl files, etc.
- Not production safe since malformed xql can crass aolserver in the parse.
+ Not production safe since malformed xql can crass AOLserver in the parse.
@author Jeff Davis davis@xarg.net
} {
@@ -206,7 +206,7 @@
aa_log "Checks starting from $startdir"
- #inspect every tcl file in the directory tree starting with $startdir
+ #inspect every Tcl file in the directory tree starting with $startdir
foreach file [ad_find_all_files -check_file_func ::xql_p $startdir] {
set fp [open $file "r"]
@@ -276,7 +276,7 @@
if {![file exists ${xql}.tcl]
&& ![file exists ${xql}.vuh]} {
# JCD: Hack to exclude calendar/www/views which is the only current file which has
- # no associated tcl file.
+ # no associated Tcl file.
if {[string first calendar/www/views $allxql($xql)] < 0} {
aa_log_result fail "missing .tcl or .vuh file for $allxql($xql)"
}
Index: openacs-4/packages/acs-templating/tcl/acs-integration-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-init.tcl,v
diff -u -N -r1.1.1.1.30.1 -r1.1.1.1.30.2
--- openacs-4/packages/acs-templating/tcl/acs-integration-init.tcl 10 Sep 2015 08:22:05 -0000 1.1.1.1.30.1
+++ openacs-4/packages/acs-templating/tcl/acs-integration-init.tcl 22 Apr 2017 18:15:50 -0000 1.1.1.1.30.2
@@ -1,7 +1,7 @@
# this initialization must be in a package alphabetically after
# acs-kernel, so the following will overwrite that handler.
-# we register SAME handler for adp and tcl pages
+# we register SAME handler for adp and Tcl pages
rp_register_extension_handler adp adp_parse_ad_conn_file
rp_register_extension_handler tcl adp_parse_ad_conn_file
Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v
diff -u -N -r1.23.2.4 -r1.23.2.5
--- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 30 Mar 2017 09:25:03 -0000 1.23.2.4
+++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 22 Apr 2017 18:15:50 -0000 1.23.2.5
@@ -94,7 +94,7 @@
ad_proc adp_parse_ad_conn_file {} {
- Handle a request for an adp and/or tcl file in the template system
+ Handle a request for an adp and/or Tcl file in the template system
based on the current setting of [ad_conn file]. This file is
registered via rp_register_extension_handler
Index: openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.6.6.1 -r1.6.6.2
--- openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl 10 Sep 2015 08:22:05 -0000 1.6.6.1
+++ openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl 22 Apr 2017 18:15:50 -0000 1.6.6.2
@@ -86,7 +86,7 @@
5.3.0d1 5.3.0d2 {
db_transaction {
# mount acs-templating so we can address
- # executable tcl scripts under www with a url
+ # executable Tcl scripts under www with a url
set package_id [apm_package_id_from_key acs-templating]
array set main_subsite \
[site_node::get_from_url \
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -N -r1.49.2.6 -r1.49.2.7
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl 13 Feb 2017 14:27:02 -0000 1.49.2.6
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 22 Apr 2017 18:15:50 -0000 1.49.2.7
@@ -305,7 +305,7 @@
# DRB: We need to differentiate between date and timestamp, for PG, at least,
# and since Oracle supports to_timestamp() we'll just do it for both DBs.
# DEDS: revert this first as to_timestamp is only for
- # oracle9i. no clear announcement that openacs has dropped
+ # oracle9i. no clear announcement that OpenACS has dropped
# support for 8i
if { [llength $date] <= 3 || ([db_type] eq "oracle" && [string match "8.*" [db_version]]) } {
return "to_date('$value', '$format')"
Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -N -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 21 Apr 2017 16:50:29 -0000 1.11.2.4
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 22 Apr 2017 18:15:50 -0000 1.11.2.5
@@ -142,7 +142,7 @@
ad_proc -private -deprecated template::util::server_root {} {
uses ns_library to find the server root, may not always be accurate
- because it essentially asks for the tcl library path and
+ because it essentially asks for the Tcl library path and
strips off the last /tcl directory.
@see use $::acs::rootdir instead
@@ -393,7 +393,7 @@
}
ad_proc -private doc::parse_namespace { text_lines } {
- text between two namespace markers in a tcl library file and
+ text between two namespace markers in a Tcl library file and
parses out procedure source and comments
@author simon
@@ -587,7 +587,7 @@
}
ad_proc -private doc::parse_tcl_library { dir_list } {
- takes the absolute path of the tcl library directory and parses through it
+ takes the absolute path of the Tcl library directory and parses through it
@see doc::parse_file
@see template::util::comment_text_normalize
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -N -r1.60.2.16 -r1.60.2.17
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl 21 Apr 2017 16:50:29 -0000 1.60.2.16
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 22 Apr 2017 18:15:50 -0000 1.60.2.17
@@ -1537,7 +1537,7 @@
if {!$element_properties(hide_p)} {
if {$element_properties(from_clause_eval) ne ""} {
set evaluated_from_clause [uplevel $list_properties(ulevel) $element_properties($property)]
- if {[lseach $list_properties(from_clauses) $evaluated_from_clause] < 0} {
+ if {[lsearch $list_properties(from_clauses) $evaluated_from_clause] < 0} {
lappend list_properties(from_clauses) $evaluated_from_clause
}
} elseif {$element_properties(from_clause) ne "" \
Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -N -r1.34.2.5 -r1.34.2.6
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl 21 Apr 2017 16:50:29 -0000 1.34.2.5
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl 22 Apr 2017 18:15:50 -0000 1.34.2.6
@@ -422,7 +422,7 @@
@param type Type of query
- @return 1 if result was successfuly retrieved, 0 if failed
+ @return 1 if result was successfully retrieved, 0 if failed
} {
upvar opts opts
@@ -1118,7 +1118,7 @@
set _ [lindex $args 0]
} else {
#
- # Use a pair for aolserver
+ # Use a pair for AOLserver
#
ns_cache set template_cache $cache_key [list $timeout [lindex $args 0]]
}
Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -N -r1.52.2.13 -r1.52.2.14
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Sep 2016 08:04:02 -0000 1.52.2.13
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 22 Apr 2017 18:15:50 -0000 1.52.2.14
@@ -399,7 +399,7 @@
Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -N -r1.39.2.12 -r1.39.2.13
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl 28 Oct 2016 20:31:56 -0000 1.39.2.12
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl 22 Apr 2017 18:15:50 -0000 1.39.2.13
@@ -235,7 +235,7 @@
template_tag list { chunk params } {
# the list tag accepts a value so that it may be used without a data
- # source in the tcl script
+ # source in the Tcl script
set value [ns_set iget $params value]
@@ -253,7 +253,7 @@
} else {
- # Expect a data source from the tcl script
+ # Expect a data source from the Tcl script
set name [template::get_attribute list $params name]
template::adp_append_code "\nset {$name:rowcount} \[llength \${$name}\]\n"
}
@@ -779,7 +779,7 @@
}
-# DanW: implements a switch statement just like in tcl
+# DanW: implements a switch statement just like in Tcl
# use as follows:
#
#
Index: openacs-4/packages/acs-templating/tcl/wizard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/wizard-procs.tcl,v
diff -u -N -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-templating/tcl/wizard-procs.tcl 21 Apr 2017 16:50:30 -0000 1.11.2.4
+++ openacs-4/packages/acs-templating/tcl/wizard-procs.tcl 22 Apr 2017 18:15:50 -0000 1.11.2.5
@@ -68,7 +68,7 @@
same as your current wizard file. Has no effect for subwizards.