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