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 -N -r1.27 -r1.28
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl	9 May 2018 15:33:28 -0000	1.27
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl	14 May 2018 14:48:09 -0000	1.28
@@ -21,19 +21,7 @@
     }
 }
 
-db_1row apm_all_version_info {
-    select version_id, package_key, package_uri, pretty_name, version_name, version_uri,
-    summary, description_format, description, singleton_p, initial_install_p,
-    implements_subsite_p, inherit_templates_p,
-    to_char(release_date, 'Month DD, YYYY') as release_date , vendor, vendor_uri, auto_mount,
-    enabled_p, installed_p, tagged_p, imported_p, data_model_loaded_p, 
-    to_char(activation_date, 'Month DD, YYYY') as activation_date,
-    tarball_length, distribution_uri,
-    to_char(deactivation_date, 'Month DD, YYYY') as deactivation_date,
-    to_char(distribution_date, 'Month DD, YYYY') as distribution_date
-    from apm_package_version_info 
-    where version_id = :version_id
-}
+db_1row apm_all_version_info {}
 
 set downloaded_p [ad_decode $version_uri "" 0 1]
 
@@ -116,9 +104,7 @@
 
 # Obtain a list of owners, properly hyperlinked.
 set owners [list]
-db_foreach apm_all_owners {
-    select owner_uri, owner_name from apm_package_owners where version_id = :version_id
-} {
+db_foreach apm_all_owners {} {
     if { $owner_uri eq "" } {
         lappend owners $owner_name
     } else {