Index: openacs-4/packages/acs-admin/www/apm/version-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-view.tcl,v diff -u -N -r1.28 -r1.29 --- openacs-4/packages/acs-admin/www/apm/version-view.tcl 14 May 2018 14:48:09 -0000 1.28 +++ openacs-4/packages/acs-admin/www/apm/version-view.tcl 15 Oct 2018 16:52:00 -0000 1.29 @@ -59,12 +59,12 @@ } else { set href [export_vars -base version-install {version_id}] set status [subst { - No version of this package is installed. You may + No version of this package is installed. You may install this package now. }] } lappend prompts $status - + } elseif { $installed_version_id == $version_id } { set status "This version of the package is installed" if { $enabled_p == "t" } { @@ -186,7 +186,7 @@ if { $tarball_length ne "" && $tarball_length > 0 } { set href [export_vars -base packages/[file tail $version_uri] {version_id}] append body [subst { - [format "%.1f" [expr { $tarball_length / 1024.0 }]]KB + [format "%.1f" [expr { $tarball_length / 1024.0 }]]KB }] if { $distribution_uri eq "" } { append body "(generated on this system" @@ -198,11 +198,11 @@ {{m create-new} {p.description $summary} {title "[file tail $version_uri]"}}] append body [subst {

- In order to contribute this package back to the OpenACS community, + In order to contribute this package back to the OpenACS community,

  1. download the .apm-file to your file system and
  2. -
  3. submit the .apm-file - to +
  4. submit the .apm-file + to the package repository of OpenACS.
}] @@ -236,7 +236,7 @@ if {$nr_instances == 0 || ($nr_instances > 0 && !$singleton_p)} { set href [export_vars -base package-instance-create { package_key {return_url [ad_return_url]}}] set instance_create [subst { -
  • Create +
  • Create (unmounted) instance of this package
  • }] } else { @@ -275,13 +275,13 @@ XML package specification file for this version }] -if { ![info exists installed_version_id] || $installed_version_id == $version_id && +if { ![info exists installed_version_id] || $installed_version_id == $version_id && $distribution_uri eq "" } { # As long as there isn't a different installed version, and this package is being # generated locally, allow the user to write a specification file for this version # of the package. append body [subst { -
  • Write +
  • Write an XML package specification to the packages/$package_key/$package_key.info file
  • }] } @@ -291,7 +291,7 @@ # The distribution tarball was either (a) never generated, or (b) generated on this # system. Allow the user to make a tarball based on files in the filesystem. append body [subst { -
  • Generate +
  • Generate a distribution file for this package from the filesystem
  • }] } @@ -300,20 +300,20 @@ if { [info exists can_disable_p] } { append body [subst { -
  • Disable +
  • Disable this version of the package
  • }] } if { [info exists can_enable_p] } { append body [subst { -
  • Enable +
  • Enable this version of the package
  • }] } - - if { $installed_p == "t" } { + + if { $installed_p == "t" } { append body [subst { -
  • Uninstall +
  • Uninstall this package from your system (be very careful!)
  • }] }