-- -- /packages/acs-kernel/sql/acs-install.sql -- -- Mount the main site. -- -- @author Peter Marklund -- @creation-date 2000/10/01 -- @cvs-id acs-install.sql,v 1.9.2.1 2001/01/12 18:32:21 dennis Exp -- create function inline_0 () returns integer as ' declare node_id site_nodes.node_id%TYPE; main_site_id site_nodes.node_id%TYPE; begin main_site_id := apm_service__new( null, ''Main Site'', ''acs-subsite'', ''apm_service'', now(), null, null, acs__magic_object_id(''default_context'') ); -- Make the -2 registered users group an application_group insert into application_groups (group_id, package_id) values (-2, main_site_id); update acs_objects set object_type = ''application_group'', context_id = main_site_id where object_id = -2; insert into group_rels (group_rel_id, group_id, rel_type) select nextval(''t_acs_object_id_seq''), -2, ''admin_rel''; -- Create the members and admins rel segments perform rel_segment__new( null, ''rel_segment'', now(), null, null, null, null, ''Main Site Members'', -2, ''membership_rel'', null ); perform rel_segment__new( null, ''rel_segment'', now(), null, null, null, null, ''Main Site Administrators'', -2, ''admin_rel'', null ); node_id := site_node__new ( null, null, '''', main_site_id, ''t'', ''t'', null, null ); perform acs_permission__grant_permission ( main_site_id, acs__magic_object_id(''the_public''), ''read'' ); return null; end;' language 'plpgsql'; select inline_0 (); drop function inline_0 ();