Index: openacs-4/packages/acs-tcl/lib/actions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/actions.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/acs-tcl/lib/actions.tcl 3 Dec 2018 17:31:58 -0000 1.5 +++ openacs-4/packages/acs-tcl/lib/actions.tcl 10 Mar 2019 21:34:33 -0000 1.5.2.1 @@ -1,5 +1,5 @@ ad_include_contract { - Generate an html version of the given package_id's admin actions. + Generate an HTML version of the given package_id's admin actions. expects to be in a conn. } { package_id:integer Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v diff -u -r1.126.2.2 -r1.126.2.3 --- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 18 Feb 2019 12:40:09 -0000 1.126.2.2 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 10 Mar 2019 21:34:33 -0000 1.126.2.3 @@ -342,7 +342,7 @@ Deprecated: This routine was invented to provide an RDBMS-specific null value but doesn't actually work. I (DRB) left it in to speed porting - we - should really clean up the code an pull out the calls instead, though. + should really clean up the code and pull out the calls instead, though. @see "" } { @@ -391,7 +391,7 @@ @return the next value for a sequence. This can utilize a pool of sequence values. - @param sequence the name of an sql sequence + @param sequence the name of an SQL sequence @param dbn The database name to use. If empty_string, uses the default database. @@ -597,7 +597,7 @@ if {[dict exists $currentHandles $pool]} { # # Are there handles, which are not active (i.e. not in - # an currently open "ns_db select" and "ns_db getrow" + # a currently open "ns_db select" and "ns_db getrow" # context. # foreach {handle active} [dict get $currentHandles $pool] { Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v diff -u -r1.126.2.2 -r1.126.2.3 --- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 1 Mar 2019 12:12:37 -0000 1.126.2.2 +++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 10 Mar 2019 21:34:33 -0000 1.126.2.3 @@ -691,7 +691,7 @@ package_key } { Simple basic package install function. Wraps up - basically what the old install xml action did. + basically what the old install XML action did. } { set install_spec_file [apm_package_info_file_path $package_key] @@ -2178,7 +2178,7 @@ @param filename relative to serverroot, leading slash needed. @param binds list of {variable value variable value ...} - @return root_node of the parsed xml file. + @return root_node of the parsed XML file. @author Jeff Davis davis@xarg.net @creation-date 2003-10-30 @@ -2216,10 +2216,10 @@ -install_from_repository:boolean filename binds } { - process an xml install definition file which is expected to contain + process an XML install definition file which is expected to contain directives to install, mount and configure a series of packages. - @param filename path to the xml file relative to serverroot. + @param filename path to the XML file relative to serverroot. @param binds list of {variable value variable value ...} @return list of messages @@ -2276,11 +2276,11 @@ {-type "action"} {-node:required} } { - read an xml install element and invoke the appropriate processing + read an XML install element and invoke the appropriate processing procedure. @param type the type of element to search for - @param node the xml node to process + @param node the XML node to process @return the result of the invoked proc @@ -2590,9 +2590,9 @@ -value:required } { Format an XML element wit a value depending on the specified arguments - @param attribute_name code the value as xml attribute - @param multiple treat the value as a list and produce multiple xml elements - @return the xml-formatted string + @param attribute_name code the value as XML attribute + @param multiple treat the value as a list and produce multiple XML elements + @return the XML-formatted string @author Gustaf Neumann } { @@ -2635,9 +2635,10 @@ -version_id $version_id \ -array attributes] set attribute_defs [apm::package_version::attributes::get_spec] - - # sort the array so that the xml is always in the same order so + # + # Sort the array so that the XML is always in the same order so # its stable for CVS. + # foreach attribute_name [lsort [array names attributes]] { # # Only output tag if its value is non-empty Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v diff -u -r1.98 -r1.98.2.1 --- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 20 Jul 2018 12:57:17 -0000 1.98 +++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 10 Mar 2019 21:34:33 -0000 1.98.2.1 @@ -883,7 +883,7 @@ Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v diff -u -r1.29 -r1.29.2.1 --- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 3 Dec 2018 17:06:47 -0000 1.29 +++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl 10 Mar 2019 21:34:33 -0000 1.29.2.1 @@ -1273,7 +1273,7 @@ Note: all the variables in this function are named Tblah since we could potentially have namespace collisions

- build and return an html fragment given an active query and a data definition. + build and return an HTML fragment given an active query and a data definition.