Index: openacs-4/packages/acs-subsite/www/admin/site-map/mount-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/mount-postgresql.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/site-map/mount-postgresql.xql 30 Apr 2001 20:11:24 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/site-map/mount-postgresql.xql 21 Jun 2002 19:08:33 -0000 1.3 @@ -1,69 +1,54 @@ - postgresql7.1 + postgresql7.1 - - - - select site_node__url(:node_id) + + + 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) = 0 - and not exists (select 1 - from site_nodes - where object_id = package_id) + + + 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 + + - 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 - - - - -