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 -r1.21 -r1.22 --- openacs-4/packages/acs-admin/www/apm/version-view.tcl 27 Oct 2014 16:38:54 -0000 1.21 +++ openacs-4/packages/acs-admin/www/apm/version-view.tcl 19 Jun 2015 09:09:51 -0000 1.22 @@ -77,18 +77,21 @@ if { ![info exists installed_version_id] } { if { !$downloaded_p } { + set href [export_vars -base version-generate-info {version_id {write_p 1}}] set status [subst { No version of this package is installed: there is no .info file in the packages/$package_key directory. If you're building the package now, you probably - want to generate one. + want to generate one. }] } else { + set href [export_vars -base version-install {version_id}] set status [subst { No version of this package is installed. You may - install this package now. + 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" } { @@ -104,8 +107,9 @@ version $installed_version_name, is installed and [ad_decode $installed_enabled_p "t" "enabled" "disabled"]. }] if { $version_name_greater < 0 } { + set href [export_vars -base version-upgrade {version_id}] append body [subst { - You may upgrade to this version now. + You may upgrade to this version now. }] } } @@ -133,7 +137,7 @@ if { $owner_uri eq "" } { lappend owners $owner_name } else { - lappend owners "$owner_name ($owner_uri)" + lappend owners [subst {$owner_name ($owner_uri)}] } } @@ -200,7 +204,7 @@ }] } -set vendorHTML [ad_decode $vendor_uri "" $vendor "$vendor"] +set vendorHTML [ad_decode $vendor_uri "" $vendor [subst {$vendor}]] append body [subst {
In order to contribute this package back to the OpenACS community,