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.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl	5 Apr 2001 18:23:38 -0000	1.2
@@ -23,6 +23,15 @@
 	select count(*) n_files from apm_package_files where version_id = :version_id
 }
 
+set supported_databases_list [db_list supported_databases {
+    select pretty_db_name
+    from apm_package_db_types
+    where exists (select 1
+                  from apm_package_files
+                  where version_id = :version_id
+                  and   db_type = db_type_key)
+}]
+
 set downloaded_p [ad_decode $version_uri "" 0 1]
 
 # Obtain information about the enabled version of the package (if there is one).
@@ -145,6 +154,19 @@
 <tr valign=baseline><th align=left>Version:</th><td>$version_name</td></tr>
 <tr valign=baseline><th align=left>Status:</th><td>$status</td></tr>
 <tr valign=baseline><th align=left>Data Model:</th><td>$data_model_status</td></th></tr>
+"
+
+if { [empty_string_p $supported_databases_list] } {
+    set supported_databases "none specified"
+} else {
+    set supported_databases [join $supported_databases_list ", "]
+}
+
+doc_body_append "
+<tr valign=baseline><th align=left>Database Support:</th><td>$supported_databases</td></th></tr>
+"
+
+doc_body_append "
 <tr valign=baseline><th align=left>CVS:</th><td>$cvs_status</td></tr>
 <tr valign=baseline><th align=left>[ad_decode [llength $owners] 1 "Owner" "Owners"]:</th><td>[join $owners "<br>"]</td></th></tr>
 <tr valign=baseline><th align=left>Registered Files:</th><td>$n_files</td></th></tr>