--
--
--
-- @author Dave Bauer (dave@thedesignexperience.org)
-- @creation-date 2005-12-26
-- @cvs-id $Id: upgrade-5.2.1d1-5.2.1d2.sql,v 1.4 2018/08/15 16:48:01 gustafn Exp $
--
-- New installs were not setting parent_id to security_context_root (-4)
-- but 0 so the CR root folders have the wrong info
-- re-run these upgrades.
-- Content Repository sets parent_id to security_context_root
-- for content modules
update acs_objects
set context_id = -4
where context_id = 0;
update cr_items
set parent_id = -4
where parent_id = 0;
-- now we need to recreate all the functions that assume 0
-- we use acs_magic_object('security_context_root') instead of 0
-- for future flexibility
create or replace function content_item__get_root_folder (integer)
returns integer as '
declare
get_root_folder__item_id alias for $1; -- default null
v_folder_id cr_folders.folder_id%TYPE;
begin
if get_root_folder__item_id is NULL or get_root_folder__item_id in (-4,-100,-200) then
v_folder_id := content_item_globals.c_root_folder_id;
else
select i2.item_id into v_folder_id
from cr_items i1, cr_items i2
where i2.parent_id = -4
and i1.item_id = get_root_folder__item_id
and i1.tree_sortkey between i2.tree_sortkey and tree_right(i2.tree_sortkey);
if NOT FOUND then
raise EXCEPTION '' -20000: Could not find a root folder for item ID %. Either the item does not exist or its parent value is corrupted.'', get_root_folder__item_id;
end if;
end if;
return v_folder_id;
end;' language 'plpgsql' stable;
-- content_item__new
select define_function_args('content_item__new','name,parent_id,item_id,locale,creation_date;now,creation_user,context_id,creation_ip,item_subtype;content_item,content_type;content_revision,title,description,mime_type;text/plain,nls_language,text,data,relation_tag,is_live;f,storage_type;lob,package_id');
create or replace function content_item__new (
cr_items.name%TYPE,
cr_items.parent_id%TYPE,
acs_objects.object_id%TYPE,
cr_items.locale%TYPE,
acs_objects.creation_date%TYPE,
acs_objects.creation_user%TYPE,
acs_objects.context_id%TYPE,
acs_objects.creation_ip%TYPE,
acs_object_types.object_type%TYPE,
acs_object_types.object_type%TYPE,
cr_revisions.title%TYPE,
cr_revisions.description%TYPE,
cr_revisions.mime_type%TYPE,
cr_revisions.nls_language%TYPE,
varchar,
cr_revisions.content%TYPE,
cr_child_rels.relation_tag%TYPE,
boolean,
cr_items.storage_type%TYPE,
acs_objects.package_id%TYPE
) returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2;
new__item_id alias for $3;
new__locale alias for $4;
new__creation_date alias for $5;
new__creation_user alias for $6;
new__context_id alias for $7;
new__creation_ip alias for $8;
new__item_subtype alias for $9;
new__content_type alias for $10;
new__title alias for $11;
new__description alias for $12;
new__mime_type alias for $13;
new__nls_language alias for $14;
new__text alias for $15;
new__data alias for $16;
new__relation_tag alias for $17;
new__is_live alias for $18;
new__storage_type alias for $19;
new__package_id alias for $20;
v_parent_id cr_items.parent_id%TYPE;
v_parent_type acs_objects.object_type%TYPE;
v_item_id cr_items.item_id%TYPE;
v_title cr_revisions.title%TYPE;
v_revision_id cr_revisions.revision_id%TYPE;
v_rel_id acs_objects.object_id%TYPE;
v_rel_tag cr_child_rels.relation_tag%TYPE;
v_context_id acs_objects.context_id%TYPE;
v_storage_type cr_items.storage_type%TYPE;
begin
-- place the item in the context of the pages folder if no
-- context specified
if new__parent_id is null then
v_parent_id := content_item_globals.c_root_folder_id;
else
v_parent_id := new__parent_id;
end if;
-- Determine context_id
if new__context_id is null then
v_context_id := v_parent_id;
else
v_context_id := new__context_id;
end if;
-- use the name of the item if no title is supplied
if new__title is null or new__title = '''' then
v_title := new__name;
else
v_title := new__title;
end if;
if v_parent_id = -4 or
content_folder__is_folder(v_parent_id) = ''t'' then
if v_parent_id != -4 and
content_folder__is_registered(
v_parent_id, new__content_type, ''f'') = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not registered to this folder %'', new__content_type, v_parent_id;
end if;
else if v_parent_id != -4 then
if new__relation_tag is null then
v_rel_tag := content_item__get_content_type(v_parent_id)
|| ''-'' || new__content_type;
else
v_rel_tag := new__relation_tag;
end if;
select object_type into v_parent_type from acs_objects
where object_id = v_parent_id;
if NOT FOUND then
raise EXCEPTION ''-20000: Invalid parent ID % specified in content_item.new'', v_parent_id;
end if;
if content_item__is_subclass(v_parent_type, ''content_item'') = ''t'' and
content_item__is_valid_child(v_parent_id, new__content_type, v_rel_tag) = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not allowed in this container %'', new__content_type, v_parent_id;
end if;
end if; end if;
-- Create the object
v_item_id := acs_object__new(
new__item_id,
new__item_subtype,
new__creation_date,
new__creation_user,
new__creation_ip,
v_context_id,
''t'',
v_title,
new__package_id
);
insert into cr_items (
item_id, name, content_type, parent_id, storage_type
) values (
v_item_id, new__name, new__content_type, v_parent_id, new__storage_type
);
-- if the parent is not a folder, insert into cr_child_rels
if v_parent_id != -4 and
content_folder__is_folder(v_parent_id) = ''f'' then
v_rel_id := acs_object__new(
null,
''cr_item_child_rel'',
now(),
null,
null,
v_parent_id,
''t'',
v_rel_tag || '': '' || v_parent_id || '' - '' || v_item_id,
new__package_id
);
insert into cr_child_rels (
rel_id, parent_id, child_id, relation_tag, order_n
) values (
v_rel_id, v_parent_id, v_item_id, v_rel_tag, v_item_id
);
end if;
if new__data is not null then
v_revision_id := content_revision__new(
v_title,
new__description,
now(),
new__mime_type,
new__nls_language,
new__data,
v_item_id,
null,
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
elsif new__text is not null or new__title is not null then
v_revision_id := content_revision__new(
v_title,
new__description,
now(),
new__mime_type,
null,
new__text,
v_item_id,
null,
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
end if;
-- make the revision live if is_live is true
if new__is_live = ''t'' then
PERFORM content_item__set_live_revision(v_revision_id);
end if;
return v_item_id;
end;' language 'plpgsql';
create or replace function content_item__new (
cr_items.name%TYPE,
cr_items.parent_id%TYPE,
acs_objects.object_id%TYPE,
cr_items.locale%TYPE,
acs_objects.creation_date%TYPE,
acs_objects.creation_user%TYPE,
acs_objects.context_id%TYPE,
acs_objects.creation_ip%TYPE,
acs_object_types.object_type%TYPE,
acs_object_types.object_type%TYPE,
cr_revisions.title%TYPE,
cr_revisions.description%TYPE,
cr_revisions.mime_type%TYPE,
cr_revisions.nls_language%TYPE,
varchar,
cr_revisions.content%TYPE,
cr_child_rels.relation_tag%TYPE,
boolean,
cr_items.storage_type%TYPE
) returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2;
new__item_id alias for $3;
new__locale alias for $4;
new__creation_date alias for $5;
new__creation_user alias for $6;
new__context_id alias for $7;
new__creation_ip alias for $8;
new__item_subtype alias for $9;
new__content_type alias for $10;
new__title alias for $11;
new__description alias for $12;
new__mime_type alias for $13;
new__nls_language alias for $14;
new__text alias for $15;
new__data alias for $16;
new__relation_tag alias for $17;
new__is_live alias for $18;
new__storage_type alias for $19;
v_item_id cr_items.item_id%TYPE;
begin
v_item_id := content_item__new (new__name, new__parent_id, new__item_id, new__locale,
new__creation_date, new__creation_user, new__context_id, new__creation_ip,
new__item_subtype, new__content_type, new__title, new__description,
new__mime_type, new__nls_language, new__text, new__data, new__relation_tag,
new__is_live, new__storage_type, null);
return v_item_id;
end;' language 'plpgsql';
--
create or replace function content_item__new (varchar,integer,integer,varchar,timestamptz,integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,integer)
returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2; -- default null
new__item_id alias for $3; -- default null
new__locale alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__context_id alias for $7; -- default null
new__creation_ip alias for $8; -- default null
new__item_subtype alias for $9; -- default ''content_item''
new__content_type alias for $10; -- default ''content_revision''
new__title alias for $11; -- default null
new__description alias for $12; -- default null
new__mime_type alias for $13; -- default ''text/plain''
new__nls_language alias for $14; -- default null
new__text alias for $15; -- default null
new__storage_type alias for $16; -- check in (''text'',''file'')
new__package_id alias for $17; -- default null
new__relation_tag varchar default null;
new__is_live boolean default ''f'';
v_parent_id cr_items.parent_id%TYPE;
v_parent_type acs_objects.object_type%TYPE;
v_item_id cr_items.item_id%TYPE;
v_revision_id cr_revisions.revision_id%TYPE;
v_title cr_revisions.title%TYPE;
v_rel_id acs_objects.object_id%TYPE;
v_rel_tag cr_child_rels.relation_tag%TYPE;
v_context_id acs_objects.context_id%TYPE;
begin
-- place the item in the context of the pages folder if no
-- context specified
if new__parent_id is null then
v_parent_id := content_item_globals.c_root_folder_id;
else
v_parent_id := new__parent_id;
end if;
-- Determine context_id
if new__context_id is null then
v_context_id := v_parent_id;
else
v_context_id := new__context_id;
end if;
if v_parent_id = -4 or
content_folder__is_folder(v_parent_id) = ''t'' then
if v_parent_id != -4 and
content_folder__is_registered(
v_parent_id, new__content_type, ''f'') = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not registered to this folder %'', new__content_type, v_parent_id;
end if;
else if v_parent_id != -4 then
select object_type into v_parent_type from acs_objects
where object_id = v_parent_id;
if NOT FOUND then
raise EXCEPTION ''-20000: Invalid parent ID % specified in content_item.new'', v_parent_id;
end if;
if content_item__is_subclass(v_parent_type, ''content_item'') = ''t'' and
content_item__is_valid_child(v_parent_id, new__content_type) = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not allowed in this container %'', new__content_type, v_parent_id;
end if;
end if; end if;
-- Create the object
v_item_id := acs_object__new(
new__item_id,
new__item_subtype,
new__creation_date,
new__creation_user,
new__creation_ip,
v_context_id,
''t'',
coalesce(new__title,new__name),
new__package_id
);
insert into cr_items (
item_id, name, content_type, parent_id, storage_type
) values (
v_item_id, new__name, new__content_type, v_parent_id, new__storage_type
);
-- if the parent is not a folder, insert into cr_child_rels
if v_parent_id != -4 and
content_folder__is_folder(v_parent_id) = ''f'' and
content_item__is_valid_child(v_parent_id, new__content_type) = ''t'' then
if new__relation_tag is null then
v_rel_tag := content_item__get_content_type(v_parent_id)
|| ''-'' || new__content_type;
else
v_rel_tag := new__relation_tag;
end if;
v_rel_id := acs_object__new(
null,
''cr_item_child_rel'',
now(),
null,
null,
v_parent_id,
''t'',
v_rel_tag || '': '' || v_parent_id || '' - '' || v_item_id,
new__package_id
);
insert into cr_child_rels (
rel_id, parent_id, child_id, relation_tag, order_n
) values (
v_rel_id, v_parent_id, v_item_id, v_rel_tag, v_item_id
);
end if;
-- use the name of the item if no title is supplied
if new__title is null then
v_title := new__name;
else
v_title := new__title;
end if;
if new__title is not null or
new__text is not null then
v_revision_id := content_revision__new(
v_title,
new__description,
now(),
new__mime_type,
null,
new__text,
v_item_id,
null,
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
end if;
-- make the revision live if is_live is true
if new__is_live = ''t'' then
PERFORM content_item__set_live_revision(v_revision_id);
end if;
return v_item_id;
end;' language 'plpgsql';
create or replace function content_item__new (varchar,integer,integer,varchar,timestamptz,integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar)
returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2; -- default null
new__item_id alias for $3; -- default null
new__locale alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__context_id alias for $7; -- default null
new__creation_ip alias for $8; -- default null
new__item_subtype alias for $9; -- default ''content_item''
new__content_type alias for $10; -- default ''content_revision''
new__title alias for $11; -- default null
new__description alias for $12; -- default null
new__mime_type alias for $13; -- default ''text/plain''
new__nls_language alias for $14; -- default null
new__text alias for $15; -- default null
new__storage_type alias for $16; -- check in (''text'',''file'')
v_item_id cr_items.item_id%TYPE;
begin
v_item_id := content_item__new (new__name, new__parent_id, new__item_id, new__locale,
new__creation_date, new__creation_user, new__context_id, new__creation_ip,
new__item_subtype, new__content_type, new__title, new__description,
new__mime_type, new__nls_language, new__text, new__storage_type, null::integer);
return v_item_id;
end;' language 'plpgsql';
create or replace function content_item__new (varchar,integer,integer,varchar,timestamptz,integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,integer,integer)
returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2; -- default null
new__item_id alias for $3; -- default null
new__locale alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__context_id alias for $7; -- default null
new__creation_ip alias for $8; -- default null
new__item_subtype alias for $9; -- default ''content_item''
new__content_type alias for $10; -- default ''content_revision''
new__title alias for $11; -- default null
new__description alias for $12; -- default null
new__mime_type alias for $13; -- default ''text/plain''
new__nls_language alias for $14; -- default null
-- changed to integer for blob_id
new__data alias for $15; -- default null
new__package_id alias for $16; -- default null
new__relation_tag varchar default null;
new__is_live boolean default ''f'';
v_parent_id cr_items.parent_id%TYPE;
v_parent_type acs_objects.object_type%TYPE;
v_item_id cr_items.item_id%TYPE;
v_revision_id cr_revisions.revision_id%TYPE;
v_title cr_revisions.title%TYPE;
v_rel_id acs_objects.object_id%TYPE;
v_rel_tag cr_child_rels.relation_tag%TYPE;
v_context_id acs_objects.context_id%TYPE;
begin
-- place the item in the context of the pages folder if no
-- context specified
if new__parent_id is null then
v_parent_id := content_item_globals.c_root_folder_id;
else
v_parent_id := new__parent_id;
end if;
-- Determine context_id
if new__context_id is null then
v_context_id := v_parent_id;
else
v_context_id := new__context_id;
end if;
-- use the name of the item if no title is supplied
if new__title is null or new__title = '''' then
v_title := new__name;
else
v_title := new__title;
end if;
if v_parent_id = -4 or
content_folder__is_folder(v_parent_id) = ''t'' then
if v_parent_id != -4 and
content_folder__is_registered(
v_parent_id, new__content_type, ''f'') = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not registered to this folder %'', new__content_type, v_parent_id;
end if;
else if v_parent_id != -4 then
select object_type into v_parent_type from acs_objects
where object_id = v_parent_id;
if NOT FOUND then
raise EXCEPTION ''-20000: Invalid parent ID % specified in content_item.new'', v_parent_id;
end if;
if content_item__is_subclass(v_parent_type, ''content_item'') = ''t'' and
content_item__is_valid_child(v_parent_id, new__content_type) = ''f'' then
raise EXCEPTION ''-20000: This items content type % is not allowed in this container %'', new__content_type, v_parent_id;
end if;
end if; end if;
-- Create the object
v_item_id := acs_object__new(
new__item_id,
new__item_subtype,
new__creation_date,
new__creation_user,
new__creation_ip,
v_context_id,
''t'',
v_title,
new__package_id
);
insert into cr_items (
item_id, name, content_type, parent_id, storage_type
) values (
v_item_id, new__name, new__content_type, v_parent_id, ''lob''
);
-- if the parent is not a folder, insert into cr_child_rels
if v_parent_id != -4 and
content_folder__is_folder(v_parent_id) = ''f'' and
content_item__is_valid_child(v_parent_id, new__content_type) = ''t'' then
if new__relation_tag is null or new__relation_tag = '''' then
v_rel_tag := content_item__get_content_type(v_parent_id)
|| ''-'' || new__content_type;
else
v_rel_tag := new__relation_tag;
end if;
v_rel_id := acs_object__new(
null,
''cr_item_child_rel'',
now(),
null,
null,
v_parent_id,
''t'',
v_rel_tag || '': '' || v_parent_id || '' - '' || v_item_id,
new__package_id
);
insert into cr_child_rels (
rel_id, parent_id, child_id, relation_tag, order_n
) values (
v_rel_id, v_parent_id, v_item_id, v_rel_tag, v_item_id
);
end if;
-- create the revision if data or title is not null
if new__data is not null then
v_revision_id := content_revision__new(
v_title,
new__description,
now(),
new__mime_type,
new__nls_language,
new__data,
v_item_id,
null,
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
elsif new__title is not null then
v_revision_id := content_revision__new(
v_title,
new__description,
now(),
new__mime_type,
null,
null,
v_item_id,
null,
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
end if;
-- make the revision live if is_live is true
if new__is_live = ''t'' then
PERFORM content_item__set_live_revision(v_revision_id);
end if;
return v_item_id;
end;' language 'plpgsql';
create or replace function content_item__new (varchar,integer,integer,varchar,timestamptz,integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,integer)
returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2; -- default null
new__item_id alias for $3; -- default null
new__locale alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__context_id alias for $7; -- default null
new__creation_ip alias for $8; -- default null
new__item_subtype alias for $9; -- default ''content_item''
new__content_type alias for $10; -- default ''content_revision''
new__title alias for $11; -- default null
new__description alias for $12; -- default null
new__mime_type alias for $13; -- default ''text/plain''
new__nls_language alias for $14; -- default null
-- changed to integer for blob_id
new__data alias for $15; -- default null
v_item_id cr_items.item_id%TYPE;
begin
v_item_id := content_item__new (new__name, new__parent_id, new__item_id, new__locale,
new__creation_date, new__creation_user, new__context_id, new__creation_ip,
new__item_subtype, new__content_type, new__title, new__description,
new__mime_type, new__nls_language, new__data, null::integer);
return v_item_id;
end;' language 'plpgsql';
create or replace function content_item__new(varchar,integer,varchar,text,text,integer)
returns integer as '
declare
new__name alias for $1;
new__parent_id alias for $2; -- default null
new__title alias for $3; -- default null
new__description alias for $4; -- default null
new__text alias for $5; -- default null
new__package_id alias for $6; -- default null
begin
return content_item__new(new__name,
new__parent_id,
null,
null,
now(),
null,
null,
null,
''content_item'',
''content_revision'',
new__title,
new__description,
''text/plain'',
null,
new__text,
''text'',
new__package_id
);
end;' language 'plpgsql';
-- content_folder__new
create or replace function content_folder__new (varchar,varchar,varchar,integer,integer,integer,timestamptz,integer,varchar, boolean,integer)
returns integer as '
declare
new__name alias for $1;
new__label alias for $2;
new__description alias for $3; -- default null
new__parent_id alias for $4; -- default null
new__context_id alias for $5; -- default null
new__folder_id alias for $6; -- default null
new__creation_date alias for $7; -- default now()
new__creation_user alias for $8; -- default null
new__creation_ip alias for $9; -- default null
new__security_inherit_p alias for $10; -- default true
new__package_id alias for $11; -- default null
v_folder_id cr_folders.folder_id%TYPE;
v_context_id acs_objects.context_id%TYPE;
begin
-- set the context_id
if new__context_id is null then
v_context_id := new__parent_id;
else
v_context_id := new__context_id;
end if;
-- parent_id = security_context_root means that this is a mount point
if new__parent_id != -4 and
content_folder__is_folder(new__parent_id) and
content_folder__is_registered(new__parent_id,''content_folder'',''f'') = ''f'' then
raise EXCEPTION ''-20000: This folder does not allow subfolders to be created'';
return null;
else
v_folder_id := content_item__new(
new__folder_id,
new__name,
new__parent_id,
null,
new__creation_date,
new__creation_user,
new__context_id,
new__creation_ip,
''f'',
''text/plain'',
null,
''text'',
new__security_inherit_p,
''CR_FILES'',
''content_folder'',
''content_folder'',
new__package_id
);
insert into cr_folders (
folder_id, label, description, package_id
) values (
v_folder_id, new__label, new__description, new__package_id
);
-- set the correct object title
update acs_objects
set title = new__label
where object_id = v_folder_id;
-- inherit the attributes of the parent folder
if new__parent_id is not null then
insert into cr_folder_type_map
select
v_folder_id as folder_id, content_type
from
cr_folder_type_map
where
folder_id = new__parent_id;
end if;
-- update the child flag on the parent
update cr_folders set has_child_folders = ''t''
where folder_id = new__parent_id;
return v_folder_id;
end if;
return v_folder_id;
end;' language 'plpgsql';
create or replace function content_folder__is_sub_folder (integer,integer)
returns boolean as '
declare
is_sub_folder__folder_id alias for $1;
is_sub_folder__target_folder_id alias for $2;
v_parent_id integer default 0;
v_sub_folder_p boolean default ''f'';
v_rec record;
begin
if is_sub_folder__folder_id = content_item__get_root_folder(null) or
is_sub_folder__folder_id = content_template__get_root_folder() then
v_sub_folder_p := ''t'';
end if;
-- select
-- parent_id
-- from
-- cr_items
-- connect by
-- prior parent_id = item_id
-- start with
-- item_id = is_sub_folder__target_folder_id
for v_rec in select i2.parent_id
from cr_items i1, cr_items i2
where i1.item_id = is_sub_folder__target_folder_id
and i1.tree_sortkey between i2.tree_sortkey and tree_right(i2.tree_sortkey)
order by i2.tree_sortkey desc
LOOP
v_parent_id := v_rec.parent_id;
exit when v_parent_id = is_sub_folder__folder_id;
-- we did not find the folder, reset v_parent_id
v_parent_id := -4;
end LOOP;
if v_parent_id != -4 then
v_sub_folder_p := ''t'';
end if;
return v_sub_folder_p;
end;' language 'plpgsql';
create or replace function content_folder__is_root (integer)
returns boolean as '
declare
is_root__folder_id alias for $1;
v_is_root boolean;
begin
select parent_id = -4 into v_is_root
from cr_items where item_id = is_root__folder_id;
return v_is_root;
end;' language 'plpgsql';
select define_function_args('content_keyword__new','heading,description,parent_id,keyword_id,creation_date;now,creation_user,creation_ip,object_type;content_keyword,package_id');
-- add new versions of content_keyword__new that support package_id
create or replace function content_keyword__new (varchar,varchar,integer,integer,timestamptz,integer,varchar,varchar,integer)
returns integer as '
declare
new__heading alias for $1;
new__description alias for $2; -- default null
new__parent_id alias for $3; -- default null
new__keyword_id alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__creation_ip alias for $7; -- default null
new__object_type alias for $8; -- default ''content_keyword''
new__package_id alias for $9; -- default null
v_id integer;
v_package_id acs_objects.package_id%TYPE;
begin
if new__package_id is null then
v_package_id := acs_object__package_id(new__parent_id);
else
v_package_id := new__package_id;
end if;
v_id := acs_object__new (new__keyword_id,
new__object_type,
new__creation_date,
new__creation_user,
new__creation_ip,
new__parent_id,
''t'',
new__heading,
v_package_id
);
insert into cr_keywords
(heading, description, keyword_id, parent_id)
values
(new__heading, new__description, v_id, new__parent_id);
return v_id;
end;' language 'plpgsql';
create or replace function content_keyword__new (varchar,varchar,integer,integer,timestamptz,integer,varchar,varchar)
returns integer as '
declare
new__heading alias for $1;
new__description alias for $2; -- default null
new__parent_id alias for $3; -- default null
new__keyword_id alias for $4; -- default null
new__creation_date alias for $5; -- default now()
new__creation_user alias for $6; -- default null
new__creation_ip alias for $7; -- default null
new__object_type alias for $8; -- default ''content_keyword''
begin
return content_keyword__new(new__heading,
new__description,
new__parent_id,
new__keyword_id,
new__creation_date,
new__creation_user,
new__creation_ip,
new__object_type,
null
);
end;' language 'plpgsql';
OpenACS – The Toolkit for Online Communities : ACS API Browser : ACS Content Repository 5.10.1 : upgrade-5.2.1d1-5.2.1d2.sql
Begin main content
