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: