Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 6 Apr 2018 21:09:00 -0000 1.12 +++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 25 Apr 2018 08:52:58 -0000 1.13 @@ -36,7 +36,7 @@ } # - # Support functions for the the OpenACS API browser + # Support functions for the OpenACS API browser # :public object method method_label { -kind:switch proc_spec } { switch [llength $proc_spec] { Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v diff -u -N -r1.119 -r1.120 --- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 6 Apr 2018 16:09:40 -0000 1.119 +++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl 25 Apr 2018 08:52:58 -0000 1.120 @@ -664,7 +664,7 @@ # # Cache the information, whether the prepared statement was # defined per pg session. Depending on the version of the driver, - # we can obtain a session_id from the the db driver. If we can't, + # we can obtain a session_id from the db driver. If we can't, # we fall back to a per request-cache (via toplevel variable). # try { @@ -938,9 +938,9 @@ -check_function sql_file } { - Load the sql file, if the the kernel is older than the - specified version, and the version of the specified package is older, - and the check_function does not exist in function_args. + Load the sql file, if the kernel is older than the specified + version, and the version of the specified package is older, and + the check_function does not exist in function_args.
Sample usage:
::xo::db::require function_args \
@@ -2252,28 +2252,29 @@
query and create XOTcl objects from the tuples.
@param sql The SQL query to retrieve tuples. Note that if the SQL
- query only returns a restricted set of attributes, the objects will
- be only partially instantiated.
+ query only returns a restricted set of attributes, the objects
+ will be only partially instantiated.
@param as_ordered_composite return an ordered composite object
- preserving the order. If the flag is false, one has to use
- "info instances" to access the resulted objects.
+ preserving the order. If the flag is false, one has to use "info
+ instances" to access the resulted objects.
@param object_class specifies the XOTcl class, for which instances
are created.
- @param named_objects If this flag is true, the value of the id_column is used
- for the name of the created objects (object will be named e.g. ::13738).
- Otherwise, objects are created with the XOTcl "new" method to avoid object name clashes.
+ @param named_objects If this flag is true, the value of the
+ id_column is used for the name of the created objects (object will
+ be named e.g. ::13738). Otherwise, objects are created with the
+ XOTcl "new" method to avoid object name clashes.
- @param destroy_on_cleanup If this flag is true, the objects (and ordered composite)
- will be automatically destroyed on cleaup (typically after the request was processed).
+ @param destroy_on_cleanup If this flag is true, the objects (and
+ ordered composite) will be automatically destroyed on cleaup
+ (typically after the request was processed).
- @param initialize can be used to avoid full initialization, when
- a large series of of objects is loaded. Per default, these objects
- are initialized via initialize_loaded_object, when the are
- of type ::xo::db::Object
- } {
+ @param initialize can be used to avoid full initialization, when a
+ large series of objects is loaded. Per default, these objects are
+ initialized via initialize_loaded_object, when the are of type
+ ::xo::db::Object } {
if {$object_class eq ""} {set object_class [self]}
if {$sql eq ""} {set sql [:instance_select_query]}
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 -N -r1.38 -r1.39
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 22 Mar 2018 12:59:06 -0000 1.38
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 25 Apr 2018 08:52:58 -0000 1.39
@@ -290,7 +290,7 @@
}
if {[ns_conn isconnected]} {
- # in case of of host-node map, simplify the url to avoid redirects
+ # in case of host-node map, simplify the url to avoid redirects
# .... but ad_host works only, when we are connected....
# TODO: solution for syndication
set root [root_of_host [ad_host]]
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 -N -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 10 Apr 2018 06:32:22 -0000 1.23
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 25 Apr 2018 08:52:58 -0000 1.24
@@ -142,7 +142,7 @@
}
ProtocolHandler ad_instproc register { } {
- Register the the NaviServer/AOLserver filter and traces.
+ Register the NaviServer/AOLserver filter and traces.
This method is typically called via *-init.tcl.
Note, that the specified url must not have an entry