Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-install.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-install.sql,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-kernel/sql/postgresql/acs-install.sql 20 Aug 2001 18:31:55 -0000 1.7 +++ openacs-4/packages/acs-kernel/sql/postgresql/acs-install.sql 1 Sep 2001 20:26:39 -0000 1.8 @@ -18,6 +18,7 @@ workflow_id apm_packages.package_id%TYPE; docs_id apm_packages.package_id%TYPE; api_doc_id apm_packages.package_id%TYPE; + acs_sc_id apm_packages.package_id%type; schema_user varchar(100); jobnum integer; begin @@ -91,6 +92,33 @@ ); + acs_sc_id := apm_service__new ( + null, + ''ACS Service Contract'', + ''acs-service-contract'', + ''apm_service'', + now(), + null, + null, + null + ); + + PERFORM apm_package__enable (acs_sc_id); + + node_id := site_node__new ( + null, + site_node__node_id(''/'', null), + ''acs-service-contract'', + acs_sc_id, + ''t'', + ''t'', + null, + null + ); + + + + workflow_id := apm_service__new ( null, ''ACS Workflow'', Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql,v diff -u -r1.22 -r1.23 --- openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql 6 Jul 2001 00:19:14 -0000 1.22 +++ openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql 1 Sep 2001 20:26:39 -0000 1.23 @@ -620,7 +620,7 @@ and a.storage = ''generic'' and a.static_p = ''f''; - -- Retreive type for static attributes + -- Retrieve type for static attributes select object_type into v_object_type from acs_objects where object_id = initialize_attributes__object_id; Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-permissions-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-permissions-create.sql,v diff -u -r1.14 -r1.15 --- openacs-4/packages/acs-kernel/sql/postgresql/acs-permissions-create.sql 12 May 2001 21:48:54 -0000 1.14 +++ openacs-4/packages/acs-kernel/sql/postgresql/acs-permissions-create.sql 1 Sep 2001 20:26:39 -0000 1.15 @@ -265,47 +265,6 @@ -- were granted moderate on a user. --' ---create or replace view acs_privilege_method_map ---as select r1.privilege, pmr.object_type, pmr.method --- from acs_privileges r1, acs_privileges r2, acs_privilege_method_rules pmr --- where r2.privilege in (select distinct rh.child_privilege --- from acs_privilege_hierarchy rh --- start with privilege = r1.privilege --- connect by prior child_privilege = privilege --- union --- select r1.privilege --- from dual) --- and r2.privilege = pmr.privilege; - --- create or replace package acs_privilege --- as --- --- procedure create_privilege ( --- privilege in acs_privileges.privilege%TYPE, --- pretty_name in acs_privileges.pretty_name%TYPE default null, --- pretty_plural in acs_privileges.pretty_plural%TYPE default null --- ); --- --- procedure drop_privilege ( --- privilege in acs_privileges.privilege%TYPE --- ); --- --- procedure add_child ( --- privilege in acs_privileges.privilege%TYPE, --- child_privilege in acs_privileges.privilege%TYPE --- ); --- --- procedure remove_child ( --- privilege in acs_privileges.privilege%TYPE, --- child_privilege in acs_privileges.privilege%TYPE --- ); --- --- end; - --- show errors - --- create or replace package body acs_privilege --- procedure create_privilege create function acs_privilege__create_privilege (varchar,varchar,varchar) returns integer as ' declare @@ -323,8 +282,15 @@ return 0; end;' language 'plpgsql'; +create function acs_privilege__create_privilege (varchar) +returns integer as ' +declare + create_privilege__privilege alias for $1; +begin + return acs_privilege__create_privilege(create_privilege__privilege, null, null); +end;' language 'plpgsql'; --- procedure drop_privilege + create function acs_privilege__drop_privilege (varchar) returns integer as ' declare @@ -336,7 +302,6 @@ return 0; end;' language 'plpgsql'; --- procedure add_child create function acs_privilege__add_child (varchar,varchar) returns integer as ' declare @@ -351,7 +316,6 @@ return 0; end;' language 'plpgsql'; --- procedure remove_child create function acs_privilege__remove_child (varchar,varchar) returns integer as ' declare @@ -366,10 +330,6 @@ end;' language 'plpgsql'; - --- show errors - - ------------------------------------ -- OPERATIONAL LEVEL: PERMISSIONS -- ------------------------------------ @@ -391,15 +351,6 @@ create index acs_permissions_grantee_idx on acs_permissions (grantee_id); create index acs_permissions_privilege_idx on acs_permissions (privilege); --- create view acs_privilege_descendant_map --- as select p1.privilege, p2.privilege as descendant --- from acs_privileges p1, acs_privileges p2 --- where p2.privilege in (select child_privilege --- from acs_privilege_hierarchy --- start with privilege = p1.privilege --- connect by prior child_privilege = privilege) --- or p2.privilege = p1.privilege; - create view acs_privilege_descendant_map as select p1.privilege, p2.privilege as descendant from acs_privileges p1, acs_privileges p2 @@ -484,20 +435,6 @@ -- where oppm.object_id = my_table.my_id; -- --- create view all_object_party_privilege_map as --- select /*+ ORDERED */ --- op.object_id, --- pdm.descendant as privilege, --- gpm.party_id as party_id --- from acs_object_paths op, --- acs_permissions p, --- acs_privilege_descendant_map pdm, --- acs_grantee_party_map gpm --- where op.ancestor_id = p.object_id --- and pdm.privilege = p.privilege --- and gpm.grantee_id = p.grantee_id; - - create view all_object_party_privilege_map as select op.object_id, pdm.descendant as privilege, @@ -511,36 +448,6 @@ and gpm.grantee_id = p.grantee_id; ---create or replace view acs_object_party_method_map ---as select opp.object_id, opp.party_id, pm.object_type, pm.method --- from acs_object_party_privilege_map opp, acs_privilege_method_map pm --- where opp.privilege = pm.privilege; - --- create or replace package acs_permission --- as --- --- procedure grant_permission ( --- object_id acs_permissions.object_id%TYPE, --- grantee_id acs_permissions.grantee_id%TYPE, --- privilege acs_permissions.privilege%TYPE --- ); --- --- procedure revoke_permission ( --- object_id acs_permissions.object_id%TYPE, --- grantee_id acs_permissions.grantee_id%TYPE, --- privilege acs_permissions.privilege%TYPE --- ); --- --- function permission_p ( --- object_id acs_objects.object_id%TYPE, --- party_id parties.party_id%TYPE, --- privilege acs_privileges.privilege%TYPE --- ) return char; --- --- end acs_permission; - --- show errors - -- This table acts as a mutex for inserts/deletes from acs_permissions. -- This is used since postgresql's exception handing mechanism is non- -- existant. A dup insert on acs_permissions will roll-back the @@ -566,8 +473,6 @@ before insert or update or delete on acs_permissions_lock for each row execute procedure acs_permissions_lock_tr(); --- create or replace package body acs_permission --- procedure grant_permission create function acs_permission__grant_permission (integer, integer, varchar) returns integer as ' declare @@ -701,6 +606,3 @@ end if; end;' language 'plpgsql'; - - --- show errors