Index: openacs-4/packages/acs-admin/www/apm/packages-install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/apm/packages-install.tcl	29 Dec 2001 01:48:32 -0000	1.9
+++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl	12 May 2002 20:57:01 -0000	1.10
@@ -30,6 +30,7 @@
 
 # Determine which spec files are new installs; install all of the new items.
 set spec_files [list]
+set warnings [list]
 foreach spec_file $all_spec_files {
     array set version [apm_read_package_info_file $spec_file]
     set version_name $version(name)
@@ -39,10 +40,14 @@
         if { [apm_package_registered_p $package_key] } {
             if { [apm_higher_version_installed_p $package_key $version_name] } {
                 lappend spec_files $spec_file
+            } else {
+                lappend warnings "Package "$package_name" ($package_key) skipped because a later version is already installed."
             }
         } else {
             lappend spec_files $spec_file
         }
+    } else {
+        lappend warnings "Package "$package_name" ($package_key) skipped because it doesn't support [db_type]."
     }
 }
 
@@ -51,6 +56,11 @@
 ns_write "Done.<p>
 "
 
+if { [llength $warnings] > 0 } {
+    ns_write "<h3>Packages skipped</h3><ul><li>[join $warnings "<li>"]</ul>"
+}
+
+
 if { [empty_string_p $spec_files] } {
     # No spec files to work with.
     ns_write "