Index: openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl 10 Sep 2002 09:42:44 -0000 1.1 +++ openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl 12 Sep 2002 23:57:16 -0000 1.2 @@ -16,12 +16,21 @@ foreach spec_file [apm_scan_packages "[acs_root_dir]/packages"] { if { ! [catch {array set version [apm_read_package_info_file $spec_file]} errMsg] } { if { ! [apm_package_registered_p $version(package.key)] } { - lappend uninstalled $version(package.key) $version(package-name) + if {[empty_string_p $version(package-name)]} { + set version(package-name) $version(package.key) + } + lappend uninstalled [list $version(package.key) $version(package-name)] } } } - - return $uninstalled + + # sort the list and return in array set form + set out [list] + foreach pkg [lsort -dictionary -index 1 $uninstalled] { + set out [concat $out $pkg] + } + return $out + } ad_proc -public core_docs_uninstalled_packages {} {