Index: openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql,v
diff -u -r1.4 -r1.4.16.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql	11 Sep 2006 14:54:32 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql	18 Mar 2019 15:35:23 -0000	1.4.16.1
@@ -21,7 +21,7 @@
                          apm_package_version.sortable_version_name(v.version_name)))
             and    (
                        acs_permission.permission_p(package_id, :user_id, 'read') = 't'
-                    or acs_permission.permission_p(package_id, acs.magic_object_id('the_public'), 'read') = 't'
+                    or acs_permission.permission_p(package_id, :the_public, 'read') = 't'
                    )
             and    (apm_package.singleton_p(p.package_key) = 0 or v.auto_mount is not null)
             and    not exists (select 1
@@ -31,26 +31,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="packages_mounted_select">
-        <querytext>
-            select p.package_id, 
-                   acs_object.name(p.package_id) as name,
-                   pt.pretty_name as package_pretty_name
-            from   apm_packages p,
-                   apm_package_types pt
-            where  pt.package_key = p.package_key
-            and    (
-                       acs_permission.permission_p(package_id, :user_id, 'read') = 't'
-                    or acs_permission.permission_p(package_id, acs.magic_object_id('the_public'), 'read') = 't'
-                   )
-            and    exists (select 1
-                           from site_nodes
-                           where object_id = p.package_id)
-            order by name
-        </querytext>
-    </fullquery>
-
-
     <fullquery name="packages_singleton_select">
         <querytext>
             select p.package_id, 
@@ -69,9 +49,10 @@
                          apm_package_version.sortable_version_name(v.version_name)))
             and    (
                        acs_permission.permission_p(package_id, :user_id, 'read') = 't'
-                    or acs_permission.permission_p(package_id, acs.magic_object_id('the_public'), 'read') = 't'
+                    or acs_permission.permission_p(package_id, :the_public, 'read') = 't'
                    )
-            and    (apm_package.singleton_p(p.package_key) = 1 and v.auto_mount is null)
+            and    apm_package.singleton_p(p.package_key) = 1
+            and    v.auto_mount is null
             and    not exists (select 1
                                from site_nodes
                                where object_id = p.package_id)