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 -N -r1.24.2.1 -r1.24.2.2 --- openacs-4/packages/acs-admin/www/apm/packages-install.tcl 18 Sep 2015 07:39:03 -0000 1.24.2.1 +++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl 25 Sep 2015 11:53:03 -0000 1.24.2.2 @@ -7,12 +7,25 @@ } { {checked_by_default_p:boolean 0} + {operation:word all} } set title "Package Installation" set context [list [list "/acs-admin/apm/" "Package Manager"] $title] +set dimensional_list { + { + operation "Operation:" all { + { upgrade "Upgrade" {} } + { install "Install" {} } + { all "All" {} } + } + } +} +set dimensional_list [ad_dimensional $dimensional_list] + + ### Get all the spec files # # If a package is in the apm_workspace dir then we assume that that is @@ -83,29 +96,35 @@ append body {

Select Packages to Install

Please select the set of packages you'd like to install.

- } - + } [subst { +
+ $dimensional_list +
+ }] + set formName "pkgsForm" append body [subst { - uncheck all boxes | - check all boxes + uncheck all boxes | + check all boxes }] - + #packages-install?checked_by_default_p=1 + append body "
\n" # Client properties do not deplete the limited URL variable space. @@ -133,9 +152,9 @@ } if { $checked_by_default_p } { - set widget [apm_package_selection_widget $pkg_info_list $pkg_key_list] + set widget [apm_package_selection_widget $pkg_info_list $pkg_key_list $operation] } else { - set widget [apm_package_selection_widget $pkg_info_list] + set widget [apm_package_selection_widget $pkg_info_list "" $operation] } if {$widget eq ""} {