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 {} { 
Index: openacs-4/packages/acs-core-docs/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/index.adp,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-core-docs/www/index.adp	10 Sep 2002 09:42:45 -0000	1.6
+++ openacs-4/packages/acs-core-docs/www/index.adp	12 Sep 2002 23:57:17 -0000	1.7
@@ -72,12 +72,17 @@
 	    } else {
 	       adp_puts "- <a href=\"/doc/$package_key/\">$package_key</a>\n"
 	    }
-     }
-  }
+        } else { 
+            if {![empty_string_p $pretty_name]} {
+	       adp_puts "- $pretty_name\n"
+	    } else {
+	       adp_puts "- $package_key\n"
+            }
+        }
+    }
 }
 
 
-
 if {!$found_p} {
     adp_puts "- No installed packages.\n"
 }
@@ -86,7 +91,13 @@
 if { ! [empty_string_p $packages] } { 
   adp_puts "\n<strong>Uninstalled packages</strong>\n\n"
   foreach {key name} $packages { 
-    adp_puts "- <a href=\"$key\">$name</a>\n"
+    set index_page [lindex [glob -nocomplain \
+				  "[acs_package_root_dir $key]/www/doc/index.*"] 0]
+    if { [file exists $index_page] } {
+       adp_puts "- <a href=\"$key\">$name</a>\n"
+    } else { 
+       adp_puts "- $name\n"
+    }
   }
 }
 %>