-- before release, we'll have to copy and paste from the referenced sql
-- files into this one. For now, we just reference some sql files.
------------------------------------------------------------------------------
-- packages/acs-subsite/sql/application_groups-create.sql
--
-- @author oumi@arsdigita.com
-- @creation-date 2000-02-02
-- @cvs-id $Id: upgrade-4.1.1-4.2.sql,v 1.2.16.1 2019/08/09 20:12:32 gustafn Exp $
--
------------------------
-- APPLICATION GROUPS --
------------------------
begin
acs_object_type.create_type (
supertype => 'group',
object_type => 'application_group',
pretty_name => 'Application Group',
pretty_plural => 'Application Groups',
table_name => 'application_groups',
id_column => 'group_id',
package_name => 'application_group',
type_extension_table => 'group_types',
name_method => 'acs_group.name'
);
end;
/
show errors
create table application_groups (
group_id constraint application_groups_group_id_fk
references groups (group_id)
constraint application_groups_group_id_pk
primary key,
package_id constraint application_groups_package_id_fk
references apm_packages,
constraint application_groups_package_id_un
unique (package_id)
);
create or replace package application_group
is
function new (
group_id in application_groups.group_id%TYPE default null,
object_type in acs_objects.object_type%TYPE
default 'application_group',
creation_date in acs_objects.creation_date%TYPE
default sysdate,
creation_user in acs_objects.creation_user%TYPE
default null,
creation_ip in acs_objects.creation_ip%TYPE default null,
email in parties.email%TYPE default null,
url in parties.url%TYPE default null,
group_name in groups.group_name%TYPE,
package_id in application_groups.package_id%TYPE,
context_id in acs_objects.context_id%TYPE default null
) return application_groups.group_id%TYPE;
procedure delete (
group_id in application_groups.group_id%TYPE
);
function group_id_from_package_id (
package_id in application_groups.group_id%TYPE,
no_complain_p in char default 'f'
) return char;
end application_group;
/
show errors
create or replace package body application_group
is
function new (
group_id in application_groups.group_id%TYPE default null,
object_type in acs_objects.object_type%TYPE
default 'application_group',
creation_date in acs_objects.creation_date%TYPE
default sysdate,
creation_user in acs_objects.creation_user%TYPE
default null,
creation_ip in acs_objects.creation_ip%TYPE default null,
email in parties.email%TYPE default null,
url in parties.url%TYPE default null,
group_name in groups.group_name%TYPE,
package_id in application_groups.package_id%TYPE,
context_id in acs_objects.context_id%TYPE default null
)
return application_groups.group_id%TYPE
is
v_group_id application_groups.group_id%TYPE;
begin
v_group_id := acs_group.new (
group_id => group_id,
object_type => object_type,
creation_date => creation_date,
creation_user => creation_user,
creation_ip => creation_ip,
email => email,
url => url,
group_name => group_name,
context_id => context_id
);
insert into application_groups (group_id, package_id)
values (v_group_id, package_id);
return v_group_id;
end new;
procedure delete (
group_id in application_groups.group_id%TYPE
)
is
begin
acs_group.delete(group_id);
end delete;
function group_id_from_package_id (
package_id in application_groups.group_id%TYPE,
no_complain_p in char default 'f'
) return char
is
v_group_id application_groups.group_id%TYPE;
begin
select group_id
into v_group_id
from application_groups
where package_id = group_id_from_package_id.package_id;
return v_group_id;
exception when no_data_found then
if no_complain_p != 't' then
raise_application_error(-20000, 'No group_id found for package ' ||
package_id || ' (' || acs_object.name(package_id) || ').' );
end if;
return null;
end group_id_from_package_id;
end application_group;
/
show errors
insert into group_type_rels
(group_rel_type_id, group_type, rel_type)
values
(acs_object_id_seq.nextval, 'application_group', 'composition_rel');
insert into group_type_rels
(group_rel_type_id, group_type, rel_type)
values
(acs_object_id_seq.nextval, 'application_group', 'membership_rel');
-----------
-- Views --
-----------
create or replace view application_group_element_map as
select g.package_id, g.group_id,
m.element_id, m.container_id, m.rel_id, m.rel_type, m.ancestor_rel_type
from application_groups g,
group_element_map m
where g.group_id = m.group_id;
create or replace view app_group_distinct_element_map as
select distinct package_id, group_id, element_id
from application_group_element_map;
create or replace view app_group_distinct_rel_map as
select distinct package_id, group_id, rel_id, rel_type, ancestor_rel_type
from application_group_element_map;
create or replace view application_group_segments as
select g.package_id, s.segment_id, s.group_id, s.rel_type, s.segment_name
from application_groups g,
group_element_map m,
rel_segments s
where g.group_id = m.group_id
and m.element_id = s.group_id
UNION ALL
select g.package_id, s.segment_id, s.group_id, s.rel_type, s.segment_name
from application_groups g,
rel_segments s
where g.group_id = s.group_id;
------------------------------------------------------------------------------
-- packages/acs-subsite/sql/user-profiles-create.sql
--
-- @author oumi@arsdigita.com
-- @creation-date 2000-02-02
-- @cvs-id $Id: upgrade-4.1.1-4.2.sql,v 1.2.16.1 2019/08/09 20:12:32 gustafn Exp $
--
---------------------------
-- UPGRADE EXISTING DATA --
---------------------------
-- ACS's current system:
--
-- - Magic object -2 is the 'Registered Users' party.
--
-- - developers use the views registered_users and cc_registered_users.
-- These views join the users table with the members of group -2.
--
-- ACS Subsite 4.1.2 now adds a concept of users (or any party, for that
-- matter) "belonging" to a subsite. The upgrade to 4.1.2 needs to
-- add all registered users to the main site.
--
-- In future versions of ACS, the registration stuff should get RIPPED OUT
-- of the kernel (Rafi agrees). Right now, we take the path of least change.
--
-- The new and improved system:
--
-- - a group type called 'application_group' is created. Application groups
-- have a package_id. The application group serves as a container for
-- all parties that belong to the package_id application instance.
-- (see application-groups-create.sql)
--
-- - An application group called 'Main Site Parties' is created. Its
-- package_id points to the main site.
--
-- Assume that application-groups-create has already been run.
set serveroutput on;
declare
v_package_id integer;
v_group_name varchar(100);
v_group_id integer;
v_rel_id integer;
v_segment_id integer;
v_segment_name varchar(100);
begin
dbms_output.put_line('selecting main site instance name and package_id');
select package_id,
substr(instance_name, 1, 90) || ' Parties',
substr(instance_name, 1, 60) || ' Registered Users'
into v_package_id, v_group_name, v_segment_name
from apm_packages, site_nodes
where site_nodes.object_id = apm_packages.package_id
and site_nodes.parent_id is null;
dbms_output.put_line('creating main site application_group');
v_group_id := application_group.new(
group_name => v_group_name,
package_id => v_package_id
);
dbms_output.put_line('adding system users to main site');
for r in (select user_id, mr.member_state
from users, membership_rels mr, acs_rels r
where user_id = r.object_id_two and object_id_one = -2
and r.rel_id = mr.rel_id ) loop
v_rel_id := membership_rel.new (
object_id_one => v_group_id,
object_id_two => r.user_id,
member_state => r.member_state
);
end loop;
-- add all the groups in the system to the Main Site Parties group
-- (except for 'Registered Users' and 'Main Site Parties' itself)
for r in (select group_id
from groups
where not exists(select 1 from group_component_map
where group_id = groups.group_id)
and group_id not in (-2, v_group_id)) loop
v_rel_id := composition_rel.new (
object_id_one => v_group_id,
object_id_two => r.group_id
);
end loop;
-- add the 'Main Site Registered Members' segment:
v_segment_id := rel_segment.new(
segment_name=> v_segment_name,
group_id => v_group_id,
rel_type => 'membership_rel'
);
end;
/
show errors
--------------------------------------------------------------
-- acs-subsite-create.sql
-- oumi@arsdigita.com
-- 2/20/2001
--
-- CHANGES
--
-- Added party_names view.
--------------------------------------------------------------
-- This view lets us avoid using acs_object.name to get party_names.
--
create or replace view party_names
as
select p.party_id,
decode(groups.group_id,
null, decode(persons.person_id,
null, p.email,
persons.first_names || ' ' || persons.last_name),
groups.group_name) as party_name
from parties p,
groups,
persons
where p.party_id = groups.group_id(+)
and p.party_id = persons.person_id(+);
--------------------------------------------------------------
-- subsite-callbacks-create.sql
-- mbryzek@arsdigita.com
-- 2/20/2001
--------------------------------------------------------------
-- /packages/acs-subsite/sql/subsite-group-callbacks-create.sql
-- Defines a simple callback system to allow other applications to
-- register callbacks when groups of a given type are created.
-- Copyright (C) 2001 ArsDigita Corporation
-- @author Michael Bryzek (mbryzek@arsdigita.com)
-- @creation-date 2001-02-20
-- $Id: upgrade-4.1.1-4.2.sql,v 1.2.16.1 2019/08/09 20:12:32 gustafn Exp $
-- This is free software distributed under the terms of the GNU Public
-- License. Full text of the license is available from the GNU Project:
-- http://www.fsf.org/copyleft/gpl.html
-- What about instead of?
-- insead_of viewing the group, go to the portal
-- instead of inserting the group with package_instantiate_object, go here
create table subsite_callbacks (
callback_id integer
constraint sgc_callback_id_pk primary key,
event_type varchar(100) not null
constraint sgc_event_type_ck check(event_type in ('insert','update','delete')),
object_type varchar(100) not null
constraint sgc_object_type_fk references acs_object_types
on delete cascade,
callback varchar(300) not null,
callback_type varchar(100) not null
constraint sgc_callback_type_ck check(callback_type in ('tcl')),
sort_order integer default(1) not null
constraint sgc_sort_order_ck check(sort_order >= 1),
-- allow only one callback of a given type for given
constraint subsite_callbacks_un unique (object_type, event_type, callback_type, callback)
);
comment on table subsite_callbacks is '
Applications can register callbacks that are triggered
whenever a group of a specified type is created. The callback
must expect the following arguments:
* object_id: The object that just got created
* node_id: The node_id where the object got created
* package_id: The package_id from where the object got created
These are passed in the following way:
* tcl procedure: Using named parameters (e.g. -object_id $object_id)
All callbacks must accept all of these parameters.
';
comment on column subsite_callbacks.event_type is '
The type of event we are monitoring. The keywords here are used
by the applications to determine which callbacks to trigger.
';
comment on column subsite_callbacks.object_type is '
The object type to monitor. Whenever an object of this type is
created, the subsite package will check for a registered
callbacks.
';
comment on column subsite_callbacks.callback_type is '
The type of the callback. This determines how the callback is
executed. Currently only a tcl type is supported but other
types may be added in the future.
';
comment on column subsite_callbacks.callback is '
The actual callback. This can be the name of a plsql function
or procedure, a URL stub relative to the node at which package
id is mounted, or the name of a tcl function.
';
comment on column subsite_callbacks.sort_order is '
The order in which the callbacks should fire. This is
important when you need to ensure that one event fires before
another (e.g. you must mount a portals application before the
bboard application)
';
create or replace package subsite_callback as
function new (
--/** Registers a new callback. If the same callback exists as
-- defined in the unique constraint on the table, does
-- nothing but returns the existing callback_id.
--
-- @author Michael Bryzek (mbryzek@arsdigita.com)
-- @creation-date 2001-02-20
--
--*/
callback_id IN subsite_callbacks.callback_id%TYPE default null,
event_type IN subsite_callbacks.event_type%TYPE,
object_type IN subsite_callbacks.object_type%TYPE,
callback IN subsite_callbacks.callback%TYPE,
callback_type IN subsite_callbacks.callback_type%TYPE,
sort_order IN subsite_callbacks.sort_order%TYPE default null
) return subsite_callbacks.callback_id%TYPE;
procedure delete (
--/** Deletes the specified callback
--
-- @author Michael Bryzek (mbryzek@arsdigita.com)
-- @creation-date 2001-02-20
--
--*/
callback_id IN subsite_callbacks.callback_id%TYPE
);
end subsite_callback;
/
show errors;
create or replace package body subsite_callback as
function new (
callback_id IN subsite_callbacks.callback_id%TYPE default null,
event_type IN subsite_callbacks.event_type%TYPE,
object_type IN subsite_callbacks.object_type%TYPE,
callback IN subsite_callbacks.callback%TYPE,
callback_type IN subsite_callbacks.callback_type%TYPE,
sort_order IN subsite_callbacks.sort_order%TYPE default null
) return subsite_callbacks.callback_id%TYPE
IS
v_callback_id subsite_callbacks.callback_id%TYPE;
v_sort_order subsite_callbacks.sort_order%TYPE;
BEGIN
if new.callback_id is null then
select acs_object_id_seq.nextval into v_callback_id from dual;
else
v_callback_id := new.callback_id;
end if;
if new.sort_order is null then
-- Make this the next event for this object_type/event_type combination
select nvl(max(sort_order),0) + 1 into v_sort_order
from subsite_callbacks
where object_type = new.object_type
and event_type = new.event_type;
else
v_sort_order := new.sort_order;
end if;
begin
insert into subsite_callbacks
(callback_id, event_type, object_type, callback, callback_type, sort_order)
values
(v_callback_id, new.event_type, new.object_type, new.callback, new.callback_type, v_sort_order);
exception when dup_val_on_index then
select callback_id into v_callback_id
from subsite_callbacks
where event_type = new.event_type
and object_type = new.object_type
and callback_type = new.callback_type
and callback = new.callback;
end;
return v_callback_id;
END new;
procedure delete (
callback_id IN subsite_callbacks.callback_id%TYPE
)
is
begin
delete from subsite_callbacks where callback_id=subsite_callback.delete.callback_id;
end delete;
end subsite_callback;
/
show errors;
OpenACS – The Toolkit for Online Communities : ACS API Browser : ACS Subsite 5.10.1d4 : upgrade-4.1.1-4.2.sql
Begin main content
