Index: openacs-4/packages/acs-subsite/www/permissions/grant-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/grant-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/grant-2-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ acs_permission.grant_permission(:object_id, :party_id, :privilege);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/grant-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/grant-2-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/grant-2-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/grant-2-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,11 +1,15 @@
+
-postgresql7.1
+ postgresql7.1
-
-
+
+
+
select acs_permission__grant_permission(:object_id, :party_id, :privilege)
-
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/grant-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/grant-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/grant-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,23 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select acs_object.name(:object_id) from dual
+
+
+
+
+
+
+
+ select party_id, acs_object.name(party_id) as name
+ from parties
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/grant-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,18 +1,23 @@
+
-postgresql7.1
+ postgresql7.1
-
-
-select acs_object__name(:object_id) from dual
-
+
+
+ select acs_object__name(:object_id)
+
-
-
+
+
+
+
select party_id, acs_object__name(party_id) as name
from parties
-
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/grant.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/grant.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+ select privilege
+ from acs_privileges
+ order by privilege
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/index-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/index-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select o.object_id, acs_object.name(o.object_id) as name
+ from acs_objects o, acs_object_party_privilege_map map
+ where map.object_id = o.object_id
+ and map.party_id = :user_id
+ and map.privilege = 'admin'
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,15 +1,19 @@
+
-postgresql7.1
+ postgresql7.1
-
-
+
+
+
select o.object_id, acs_object__name(o.object_id) as name
from acs_objects o, acs_object_party_privilege_map map
where map.object_id = o.object_id
and map.party_id = :user_id
and map.privilege = 'admin'
-
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/one-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/one-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,72 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select acs_object.name(:object_id) from dual
+
+
+
+
+
+
+
+ select grantee_id, grantee_name, privilege
+ from (select grantee_id, acs_object.name(grantee_id) as grantee_name,
+ privilege, 1 as counter
+ from acs_permissions_all
+ where object_id = :object_id
+ union all
+ select grantee_id, acs_object.name(grantee_id) as grantee_name,
+ privilege, -1 as counter
+ from acs_permissions
+ where object_id = :object_id)
+ group by grantee_id, grantee_name, privilege
+ having sum(counter) > 0
+
+
+
+
+
+
+
+
+ select grantee_id, acs_object.name(grantee_id) as grantee_name,
+ privilege
+ from acs_permissions
+ where object_id = :object_id
+
+
+
+
+
+
+
+
+ select acs_object.name(context_id)
+ from acs_objects
+ where object_id = :object_id
+
+
+
+
+
+
+
+
+ select object_id as c_object_id,acs_object.name(object_id) as c_name
+ from acs_objects o
+ where context_id = :object_id
+ and exists (select 1
+ from acs_object_party_privilege_map
+ where object_id = o.object_id
+ and party_id = :user_id
+ and privilege = 'admin')
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/one-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/one-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/one-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,15 +1,18 @@
+
-postgresql7.1
+ postgresql7.1
-
-
-select acs_object__name(:object_id) from dual
-
+
+
+ select acs_object__name(:object_id)
+
-
-
+
+
+
+
select grantee_id, grantee_name, privilege
from (select grantee_id, acs_object__name(grantee_id) as grantee_name,
privilege, 1 as counter
@@ -22,28 +25,37 @@
where object_id = :object_id) dummy
group by grantee_id, grantee_name, privilege
having sum(counter) > 0
-
+
+
-
-
+
+
+
+
select grantee_id, acs_object__name(grantee_id) as grantee_name,
privilege
from acs_permissions
where object_id = :object_id
-
+
+
-
-
+
+
+
+
select acs_object__name(context_id)
from acs_objects
where object_id = :object_id
-
+
+
-
-
+
+
+
+
select object_id as c_object_id,acs_object__name(object_id) as c_name
from acs_objects o
where context_id = :object_id
@@ -52,7 +64,9 @@
where object_id = o.object_id
and party_id = :user_id
and privilege = 'admin')
-
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/one.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/one.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/one.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,31 @@
+
+
+
+
+
+
+ select security_inherit_p
+ from acs_objects
+ where object_id = :object_id
+
+
+
+
+
+
+
+
+ select count(*) as num_children
+ from acs_objects o
+ where context_id = :object_id
+ and exists (select 1
+ from acs_object_party_privilege_map
+ where object_id = o.object_id
+ and party_id = :user_id
+ and privilege = 'admin')
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/revoke-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/revoke-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ acs_permission.revoke_permission(:object_id, :party_id, :privilege);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/revoke-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/revoke-2-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,11 +1,15 @@
+
-postgresql7.1
+ postgresql7.1
-
-
- select acs_permission__revoke_permission(:object_id, :party_id, :privilege)
-
+
+
+
+ select acs_permission__revoke_permission(:object_id, :party_id, :privilege)
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/revoke-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/revoke-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-oracle.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,21 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select acs_object.name(:object_id)
+from dual
+
+
+
+
+
+
+ select acs_object.name(:party_id) from dual
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/revoke-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/revoke-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/revoke-postgresql.xql 22 Apr 2001 16:13:15 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-postgresql.xql 30 Apr 2001 22:02:48 -0000 1.2
@@ -1,18 +1,21 @@
+
-postgresql7.1
+ postgresql7.1
-
-
-select acs_object__name(:object_id)
-from dual
-
+
+
+ select acs_object__name(:object_id)
+
+
-
-
-select acs_object__name(:party_id) from dual
-
+
+
+
+ select acs_object__name(:party_id)
+
+
Index: openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/toggle-inherit.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.xql 30 Apr 2001 22:02:48 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+ update acs_objects
+ set security_inherit_p = not security_inherit_p
+ where object_id = :object_id
+
+
+
+
+
+