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.9.2.1 --- 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 31 Mar 2002 21:33:12 -0000 1.9.2.1 @@ -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.

" +if { [llength $warnings] > 0 } { + ns_write "

Packages skipped

" +} + + if { [empty_string_p $spec_files] } { # No spec files to work with. ns_write "