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.1 -r1.2 --- openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql 30 Apr 2001 20:11:24 -0000 1.1 +++ openacs-4/packages/acs-subsite/www/admin/site-map/mount-oracle.xql 21 Jun 2002 19:08:33 -0000 1.2 @@ -1,69 +1,54 @@ - oracle8.1.6 + oracle8.1.6 - - - - select site_node.url(:node_id) from dual + + + select package_id, acs_object.name(package_id) as name + from apm_packages + where ( + 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 apm_package.singleton_p(package_key) = 0 + and not exists (select 1 + from site_nodes + where object_id = package_id) + order by name + + - - + + + select package_id, acs_object.name(package_id) as name + from apm_packages + where ( + 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 = package_id) + order by name + + - - - - - select package_id, acs_object.name(package_id) as name - from - apm_packages - where (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 apm_package.singleton_p(package_key) = 0 - and not exists (select 1 - from site_nodes - where object_id = package_id) - order by name + + + select package_id, acs_object.name(package_id) as name + from apm_packages + where ( + 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 apm_package.singleton_p(package_key) = 1 + and not exists (select 1 + from site_nodes + where object_id = package_id) + order by name + + - - - - - - - - select package_id, acs_object.name(package_id) as name - from - apm_packages - where (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 = package_id) - order by name - - - - - - - - - select package_id, acs_object.name(package_id) as name - from - apm_packages - where (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 apm_package.singleton_p(package_key) = 1 - and not exists (select 1 - from site_nodes - where object_id = package_id) - order by name - - - - -