Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v diff -u -r1.20.2.4 -r1.20.2.5 --- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 5 Sep 2015 08:12:16 -0000 1.20.2.4 +++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 25 Sep 2015 11:53:03 -0000 1.20.2.5 @@ -95,13 +95,15 @@ ad_proc -private apm_package_selection_widget { pkg_info_list - {to_install ""} + {to_install ""} + {operation "all"} } { Provides a widget for selecting packages. Displays dependency information if available. @param pkg_info_list list of package infos for all packages to be listed @param to_install list of package_keys to install + @param operation filter for added operations (all, upgrade, install) } { if {$pkg_info_list eq ""} { return "" @@ -162,8 +164,10 @@ set higher_version_p 2 } if {$higher_version_p == 2 } { + if {$operation eq "upgrade"} continue set comment "New install." } elseif {$higher_version_p == 1 } { + if {$operation eq "install"} continue set comment "Upgrade." } elseif {$higher_version_p == 0} { set comment "Package version already installed."