Index: openacs-4/packages/acs-admin/www/apm/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/index.tcl	24 Apr 2001 22:39:18 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	27 Apr 2001 01:41:12 -0000	1.3
@@ -91,23 +91,8 @@
 
 doc_body_flush
 
-set sql_qry "
-        select   v.version_id, v.package_key, t.pretty_name, v.version_name, v.enabled_p,
-                 v.installed_p, v.distribution_uri,
-            (select count(*) from apm_package_files f where f.version_id = v.version_id) as n_files,
-            (select count(*) from apm_package_versions v2
-             where v2.package_key = v.package_key
-             and   v2.installed_p = 't'
-             and   apm_package_version.sortable_version_name(v2.version_name) > apm_package_version.sortable_version_name(v.version_name)) as  superseded_p,
-            (select count(*) from dual where distribution_tarball is not null) as tarball_p
-        from    apm_package_versions v, apm_package_types t
-        where  t.package_key = v.package_key
-        [ad_dimensional_sql $dimensional_list where and]
-        [ad_order_by_from_sort_spec $orderby $table_def]
-    "
+set table [ad_table -Torderby $orderby -Tmissing_text $missing_text "apm_table" "" $table_def]
 
-set table [ad_table -Torderby $orderby -Tmissing_text $missing_text "apm_table" $sql_qry $table_def]
-
 db_release_unused_handles
 
 doc_body_append "<h3>Packages</h3><blockquote>$table</blockquote>