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.28.2.3 -r1.28.2.4 --- openacs-4/packages/acs-admin/www/apm/packages-install.tcl 16 Apr 2019 06:57:12 -0000 1.28.2.3 +++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl 16 Apr 2019 07:00:36 -0000 1.28.2.4 @@ -16,10 +16,10 @@ set dimensional_list { { operation "Operation:" all { - { upgrade "Upgrade" {} } - { install "Install" {} } - { all "All" {} } - } + { upgrade "Upgrade" {} } + { install "Install" {} } + { all "All" {} } + } } } @@ -30,7 +30,7 @@ # # If a package is in the apm_workspace dir then we assume that this is # the package that should be installed and we ignore any such package -# in the packages dir. +# in the packages dir. # # TODO: make sure that it's a later version than that in the packages dir? # @@ -91,16 +91,16 @@ using the Package Loader.

Return to the APM.

}] -} else { - +} else { + append body [subst {

Select Packages to $operation

Please select the set of packages you'd like to [string tolower $operation].

$dimensional_list
}] - + set formName "pkgsForm" template::add_event_listener \ -id check_all \ @@ -126,7 +126,7 @@ check all boxes } #packages-install?checked_by_default_p=1 - + append body "
\n" # Client properties do not deplete the limited URL variable space. @@ -146,13 +146,13 @@ lappend errors "
  • Unable to parse $spec_file. The following error was generated:
    [ns_quotehtml $errmsg]

    " } else { - apm_log APMDebug "APM: Adding $package(package.key) to list for installation." + apm_log APMDebug "APM: Adding $package(package.key) to list for installation." lappend pkg_info_list [pkg_info_new $package(package.key) $spec_file \ $package(embeds) $package(extends) $package(provides) $package(requires) ""] lappend pkg_key_list $package(package.key) } } - + if { $checked_by_default_p } { set widget [apm_package_selection_widget $pkg_info_list $pkg_key_list $operation] } else { @@ -169,14 +169,14 @@

  • }] - + if {$errors ne ""} { append body "The following errors were generated " - } + } } if { [llength $not_compatible_list] > 0 } {