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.17 -r1.18
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl 31 Oct 2003 12:11:28 -0000 1.17
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl 26 Apr 2004 18:50:47 -0000 1.18
@@ -152,7 +152,20 @@
Package Key: | $package_key |
Summary: | $summary |
Description: | $description |
-Release Date: | $release_date |
+Release Date: | $release_date |
"
+
+# Dynamic package version attributes
+array set all_attributes [apm::package_version::attributes::get_spec]
+array set attributes [apm::package_version::attributes::get \
+ -version_id $version_id \
+ -array attributes]
+foreach attribute_name [array names attributes] {
+ array set attribute $all_attributes($attribute_name)
+
+ append body "$attribute(pretty_name) | $attributes($attribute_name) |
"
+}
+
+append body "
Vendor: | [ad_decode $vendor_uri "" $vendor "$vendor"] |
Package URL: | $package_uri |
Version URL: | $version_uri |