Index: openacs-4/packages/general-comments/sql/oracle/general-comments-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/sql/oracle/general-comments-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/general-comments/sql/oracle/general-comments-create.sql 20 Apr 2001 20:51:11 -0000 1.1 +++ openacs-4/packages/general-comments/sql/oracle/general-comments-create.sql 23 Feb 2005 20:52:23 -0000 1.2 @@ -34,28 +34,11 @@ create index general_comments_object_id_idx on general_comments (object_id); -- define and grant privileges -declare - registered_users acs_objects.object_id%TYPE; - default_context acs_objects.object_id%TYPE; begin - -- retreive object ids for magic objects - registered_users := acs.magic_object_id('registered_users'); - default_context := acs.magic_object_id('default_context'); - -- create privileges acs_privilege.create_privilege('general_comments_create'); - -- associte privileges to global privileges - acs_privilege.add_child('create','general_comments_create'); - - -- allow registered users to create comments - acs_permission.grant_permission ( - object_id => default_context, - grantee_id => registered_users, - privilege => 'general_comments_create' - ); - end; / show errors Index: openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql 14 Jun 2001 19:52:22 -0000 1.3 +++ openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql 23 Feb 2005 20:52:23 -0000 1.4 @@ -37,28 +37,11 @@ create function inline_0 () returns integer as ' -- define and grant privileges -declare - registered_users acs_objects.object_id%TYPE; - default_context acs_objects.object_id%TYPE; begin - -- retreive object ids for magic objects - registered_users := acs__magic_object_id(''registered_users''); - default_context := acs__magic_object_id(''default_context''); - -- create privileges PERFORM acs_privilege__create_privilege(''general_comments_create'', null, null); - -- associte privileges to global privileges - PERFORM acs_privilege__add_child(''create'',''general_comments_create''); - - -- allow registered users to create comments - PERFORM acs_permission__grant_permission ( - default_context, - registered_users, - ''general_comments_create'' - ); - return 0; end;' language 'plpgsql';