Index: openacs-4/packages/acs-admin/www/apm/version-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/version-edit.tcl	17 May 2003 09:36:29 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/version-edit.tcl	26 Apr 2004 18:50:47 -0000	1.7
@@ -115,6 +115,31 @@
 </tr>
 "
 
+# 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 all_attributes] {
+    array set attribute $all_attributes($attribute_name)
+
+    if { [info exists attributes($attribute_name)] } {
+        # Attribute is already in db
+        set attribute_value $attributes($attribute_name)
+    } else {
+        # The attribute is not in the db yet
+        set attribute_value [apm::package_version::attributes::default_value $attribute_name]
+    }
+
+    doc_body_append "
+<tr>
+  <th align=right nowrap>${attribute(pretty_name)}:</th>
+  <td><input name=\"$attribute_name\" size=\"30\" value=\"$attribute_value\">
+</td>
+</tr>
+"
+}
+
 # Build a list of owners. Ensure that there are at least two.
 set owners [db_list_of_lists apm_all_owners {
     select owner_name, owner_uri from apm_package_owners where version_id = :version_id