Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.258 -r1.7.2.259
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl 21 Nov 2022 19:41:46 -0000 1.7.2.258
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 27 Nov 2022 17:28:12 -0000 1.7.2.259
@@ -1989,7 +1989,7 @@
# This method was made public, since there configuration window
# update in inclass-exam.wf requires this for the update via
# update_attribute_from_slot. Probably, we should move the core
- # of this function to this file, and make it pretected again.
+ # of this function to this file, and make it protected again.
#
set dtstart [dict get $time_window time_window.dtstart]
set dtend [dict get $time_window time_window.dtend]
@@ -4120,7 +4120,7 @@
if {$with_grading_table && $autograde} {
append HTML [:grading_table -csv ${:grade_csv} ${:grade_dict}]
#
- # The following lines are conveniant for debugging
+ # The following lines are convenient for debugging
#
#set manual_gradings [$examWf property manual_gradings]
#set manual_gradings [:get_exam_results -obj $examWf manual_gradings]
Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.52 -r1.93.2.53
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 12 Sep 2022 12:51:37 -0000 1.93.2.52
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 27 Nov 2022 17:35:46 -0000 1.93.2.53
@@ -636,7 +636,7 @@
# the object to the base class and try again.
#
if {[lindex $cmd 1] eq "destroy"} {
- ns_log error "... forcing object destroy without application level destuctors"
+ ns_log error "... forcing object destroy without application level destructors"
if {[$obj isclass]} {
$obj class ::xotcl::Class; $obj destroy
} else {
Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.41.2.55 -r1.41.2.56
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 8 Nov 2022 18:04:00 -0000 1.41.2.55
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 27 Nov 2022 17:35:46 -0000 1.41.2.56
@@ -972,7 +972,7 @@
# value.
#
#if {[util::potentially_unsafe_eval_p -- [lindex $_var 1]]} {
- # ad_log warning "depecated usage of variable/value pair $_var, potentially unsafe for 'subst'"
+ # ad_log warning "deprecated usage of variable/value pair $_var, potentially unsafe for 'subst'"
#}
lappend __vars [lindex $_var 0] [uplevel [list subst [lindex $_var 1]]]
} else {
Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -r1.24.2.20 -r1.24.2.21
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl 22 Aug 2022 17:06:40 -0000 1.24.2.20
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl 27 Nov 2022 17:35:46 -0000 1.24.2.21
@@ -45,7 +45,7 @@
# package-key provides default
# package-instance keeps values (materialized cross-product)
#
-# - Consquences
+# - Consequences
# 1) Since default values are copied into
# per-package-instance-values altering the default has no
# immediate effect. It would be nice to alter in an OpenACS
Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl 17 Sep 2021 09:27:47 -0000 1.20.2.5
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl 27 Nov 2022 17:35:47 -0000 1.20.2.6
@@ -270,7 +270,7 @@
}
#
-# Create a sample persistent thread that can be acessed
+# Create a sample persistent thread that can be accessed
# via request threads.
#
#::xotcl::THREAD create t0 {
Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v
diff -u -r1.30.2.8 -r1.30.2.9
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 9 May 2022 17:11:03 -0000 1.30.2.8
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 27 Nov 2022 17:35:47 -0000 1.30.2.9
@@ -298,12 +298,12 @@
{} $body \n \n
}
- ProtocolHandler instproc multiStatusResonse {
+ ProtocolHandler instproc multiStatusResponse {
-href:required
-propstats:required
{-propstatus true}
} {
- :log "multiStatusResonse href $href propstats $propstats"
+ :log "multiStatusResponse href $href propstats $propstats"
append reply \n \
{} \
"\n$href\n"
@@ -342,7 +342,7 @@
D:getcontentlength "" \
D:creationdate "" \
D:resourcetype ""
- set r [:multiStatus [:multiStatusResonse \
+ set r [:multiStatus [:multiStatusResponse \
-href [ns_urldecode [ns_conn url]] \
-propstats [list $davprops $status]]]
:log multiStatusError=$r
@@ -377,7 +377,7 @@
D:lockdiscovery {}
ns_return 207 text/xml [:multiStatus \
- [:multiStatusResonse \
+ [:multiStatusResponse \
-href ${:uri} \
-propstats [list $davprops "HTTP/1.1 200 OK"]]]
}
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.75.2.37 -r1.75.2.38
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl 8 Nov 2022 13:24:15 -0000 1.75.2.37
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl 27 Nov 2022 17:35:47 -0000 1.75.2.38
@@ -630,7 +630,7 @@
Get query parameter with default and optional value constraints.
In case the value check for the query parameter fails, and no
- futher precautions are performed (::aa_test_noabort is set), the
+ further precautions are performed (::aa_test_noabort is set), the
method raises an exception with "ad_return_complaint" and aborts
the script.
@@ -727,8 +727,7 @@
ad_proc ::xo::validate_parameter_constraints {name constraint value} {
Validate the provided value against the constraints. In case of
- failure, return with ad_return_complaint when there is an
- connection, otherwise raise an error.
+ failure, return with ad_return_complaint when there is a connection, otherwise raise an error.
} {
#
@@ -754,7 +753,7 @@
} else {
#
# This is the legacy branch. nsf::parseargs might clobber
- # "name", therefore save it in an highly unlikely variable
+ # "name", therefore, save it in an highly unlikely variable
# name.
#
set { name } $name
Index: openacs-4/packages/xotcl-core/tcl/html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/html-procs.tcl,v
diff -u -r1.4.2.3 -r1.4.2.4
--- openacs-4/packages/xotcl-core/tcl/html-procs.tcl 12 Apr 2022 09:36:39 -0000 1.4.2.3
+++ openacs-4/packages/xotcl-core/tcl/html-procs.tcl 27 Nov 2022 17:35:47 -0000 1.4.2.4
@@ -61,7 +61,7 @@
#
# Command generating HTML tags. All these commands have
- # following sytax: ?-option value ...? ?script?
+ # following syntax: ?-option value ...? ?script?
#
# -option name of HTML attribute
# value attribute value
Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.29.2.18 -r1.29.2.19
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl 9 Mar 2022 14:00:43 -0000 1.29.2.18
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl 27 Nov 2022 17:37:50 -0000 1.29.2.19
@@ -132,7 +132,7 @@
set class_info [expr {[info exists c] && [::nsf::is class $c] ?
"using the class hierarchy [concat $c [$c info heritage]]" :
""}]
- ad_log error "get_permission could not find an approriate class for checking" \
+ ad_log error "get_permission could not find an appropriate class for checking" \
"permissions for '$object' and '$method' in policy [self]" \
$class_info
set permission ""