Index: openacs-4/packages/acs-subsite/lib/applications-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/lib/applications-oracle.xql	7 Aug 2017 23:47:57 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,29 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-  <fullquery name="select_applications">
-    <querytext>
-
-    select p.package_id,
-           p.instance_name,
-           n.node_id, 
-           n.name
-    from   site_nodes n,
-           apm_packages p,
-           apm_package_types t
-    where  n.parent_id = :subsite_node_id
-    and    p.package_id = n.object_id
-    and    t.package_key = p.package_key
-    and    t.package_type = 'apm_application'
-    and    exists (select 1 
-                   from   acs_object_party_privilege_map perm 
-                   where  perm.object_id = p.package_id
-                   and    perm.privilege = 'read'
-                   and    perm.party_id = :user_id)    
-    order  by upper(instance_name)      
-
-      </querytext>
-  </fullquery>
-</queryset>
-
Index: openacs-4/packages/acs-subsite/lib/applications-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/lib/applications-postgresql.xql	7 Aug 2017 23:47:57 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,25 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-  <rdbms><type>postgresql</type><version>9.0</version></rdbms>
-
-  <fullquery name="select_applications">
-    <querytext>
-
-    select p.package_id,
-           p.instance_name,
-           n.node_id, 
-           n.name
-    from   site_nodes n,
-           apm_packages p,
-           apm_package_types t
-    where  n.parent_id = :subsite_node_id
-    and    p.package_id = n.object_id
-    and    t.package_key = p.package_key
-    and    t.package_type = 'apm_application'
-    and    acs_permission__permission_p(p.package_id, :user_id, 'read')
-    order  by upper(instance_name)      
-
-      </querytext>
-  </fullquery>
-</queryset>
-
Index: openacs-4/packages/acs-subsite/lib/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-subsite/lib/applications.tcl	14 Mar 2019 15:53:01 -0000	1.9.2.1
+++ openacs-4/packages/acs-subsite/lib/applications.tcl	18 Mar 2019 15:52:16 -0000	1.9.2.2
@@ -29,7 +29,21 @@
 
 set user_id [ad_conn user_id]
 
-db_multirow applications select_applications {}
+db_multirow applications select_applications {
+    select p.package_id,
+           p.instance_name,
+           n.node_id,
+           n.name
+    from   site_nodes n,
+           apm_packages p,
+           apm_package_types t
+    where  n.parent_id = :subsite_node_id
+    and    p.package_id = n.object_id
+    and    t.package_key = p.package_key
+    and    t.package_type = 'apm_application'
+    and    acs_permission.permission_p(p.package_id, :user_id, 'read')
+    order  by upper(instance_name)
+}
 
 
 # Local variables: