Index: openacs-4/packages/acs-admin/www/install/local-install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/Attic/local-install.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/install/local-install.tcl	21 Sep 2003 18:24:19 -0000	1.3
+++ openacs-4/packages/acs-admin/www/install/local-install.tcl	22 Sep 2003 16:50:30 -0000	1.4
@@ -22,8 +22,7 @@
 
 set upgrades_p 0
 
-# For testing without caching
-#nsv_unset apm_version_properties
+array set package [list]
 
 foreach spec_file [apm_scan_packages "[acs_root_dir]/packages"] {
     with_catch errmsg {
@@ -47,12 +46,13 @@
 
                 # If in upgrade mode, only add to list if it's an upgrade
                 if { !$installed_p && (!$upgrade_p || ![empty_string_p $upgrade_text]) } {
-                    multirow append packages \
-                        $version(package.key) \
-                        $version(package-name) \
-                        $version(name) \
-                        $version(package.type) \
-                        $upgrade_text
+                    
+                    set package([string toupper $version(package-name)]) [list \
+                                                                              $version(package.key) \
+                                                                              $version(package-name) \
+                                                                              $version(name) \
+                                                                              $version(package.type) \
+                                                                              $upgrade_text]
                 }
             }
         }
@@ -62,6 +62,18 @@
     }
 }
 
+# Sort the list alphabetically (in case package_name and package_key doesn't sort the same)
+foreach name [lsort -ascii [array names package]] {
+    set row $package($name)
+    multirow append packages \
+        [lindex $row 0] \
+        [lindex $row 1] \
+        [lindex $row 2] \
+        [lindex $row 3] \
+        [lindex $row 4]
+}
+
+
 template::list::create \
     -name packages \
     -multirow packages \