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.5
--- 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 3 Sep 2024 15:37:34 -0000 1.5
@@ -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 @@
-
-
- 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
-
-
-
-
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)