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.108.2.16 -r1.108.2.17 --- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 12 Aug 2014 17:39:26 -0000 1.108.2.16 +++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 12 Aug 2014 19:25:51 -0000 1.108.2.17 @@ -2057,16 +2057,24 @@ set tree [xml_parse -persist $manifest] set root_node [xml_doc_get_first_node $tree] - + foreach package_node [xml_node_get_children_by_name $root_node "package"] { array unset version set version(package.key) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "package-key"]] set version(name) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "version"]] set version(package-name) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "pretty-name"]] set version(package.type) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "package-type"]] set version(download_url) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "download-url"]] - set version(summary) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "summary"]] + foreach element {summary release-date} { + set node [xml_node_get_first_child_by_name $package_node $element] + if {$node ne ""} { + set version($element) [xml_node_get_content $node] + } else { + set version($element) "" + } + } + foreach element {vendor owner} { set node [xml_node_get_first_child_by_name $package_node $element] if {$node ne ""} { @@ -2600,9 +2608,3 @@ } -############## -# -# Deprecated Procedures -# -############# -