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 { Vendor:$vendorHTML Package URL:$package_uri @@ -209,23 +213,25 @@ }] 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" if { $distribution_date ne "" } { append body " on $distribution_date" } append body ")" - set params [export_vars { {m create-new} {p.description $summary} {title "[file tail $version_uri]"}}] + set href [export_vars -base "http://openacs.org/xowf/package-submissions/PackageSubmit.wf" \ + {{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,

  1. download the .apm-file to your file system and
  2. submit the .apm-file - to + to the package repository of OpenACS.
}] @@ -239,8 +245,9 @@ } else { append body "None available" if { $installed_p == "t" } { + set href [export_vars -base version-generate-tarball {version_id}] append body [subst { - (generate one now from the filesystem) + (generate one now from the filesystem) }] } } @@ -250,15 +257,15 @@ if {$nr_instances > 0} { set instances [subst { Installed instances of this package: - $nr_instances + $nr_instances }] } else { set instances "No installed instance of this package\n" } if {$nr_instances == 0 || ($nr_instances > 0 && !$singleton_p)} { - set query [export_vars { package_key {return_url [ad_return_url]}}] + 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 { @@ -271,26 +278,30 @@

    Manage

    Reload

    XML .info package specification file