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.12 -r1.12.2.1 --- openacs-4/packages/acs-admin/www/apm/packages-install.tcl 14 Aug 2002 18:51:13 -0000 1.12 +++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl 5 Mar 2003 14:43:12 -0000 1.12.2.1 @@ -6,7 +6,7 @@ @cvs-id $Id$ } { - {checked_by_default_p:boolean 1} + {checked_by_default_p:boolean 0} {install_path [apm_workspace_install_dir]} } @@ -33,16 +33,20 @@ set already_installed_list [list] set not_compatible_list [list] +ns_log Notice "pm debug spec_files $all_spec_files" foreach spec_file $all_spec_files { array set version [apm_read_package_info_file $spec_file] set version_name $version(name) set package_name $version(package-name) set package_key $version(package.key) - if { [db_package_supports_rdbms_p $version(database_support)] } { + if { [apm_package_supports_rdbms_p -package_key $package_key] } { if { [apm_package_registered_p $package_key] } { + # This package is already on the system if { [apm_higher_version_installed_p $package_key $version_name] } { + ns_log Notice "higher version installed of $package_key $version_name" lappend spec_files $spec_file } else { + ns_log Notice "need upgrade of package $package_key $version_name" lappend already_installed_list "Package "$package_name" ($package_key) version $version_name or higher is already installed." } } else {