--
-- content_item__new/3
--
create or replace function content_item__new(
new__name character varying,
new__parent_id integer,
new__package_id integer DEFAULT NULL::integer
) returns int4 as $$
--
-- calls content_item__new/6
--
DECLARE
BEGIN
return content_item__new(new__name, new__parent_id, null, null, null, new__package_id);
END;
$$ language plpgsql;
--
-- content_item__new/6
--
create or replace function content_item__new(
new__name character varying,
new__parent_id integer,
new__title character varying,
new__description text,
new__text text,
new__package_id integer DEFAULT NULL::integer
) returns int4 as $$
DECLARE
BEGIN
raise NOTICE 'content_item__new/5 is deprecated, call content_item__new/21 instead';
-- calls content_item__new/20
return content_item__new(new__name,
new__parent_id,
null, -- item_id
null, -- locale
now(), -- creation_date
null, -- creation_user
null, -- context_id
null, -- creation_ip
'content_item', -- item_subtype
'content_revision', -- content_type
new__title,
new__description,
'text/plain', -- mime_type
null, -- nls_language
new__text,
null, -- data
null, -- relation_tag
'f', -- is_live
'text', -- storage_type
new__package_id,
't' -- with_child_rels
);
END;
$$ language plpgsql;
--
-- content_item__new/17
--
create or replace function content_item__new(
new__item_id integer,
new__name character varying,
new__parent_id integer,
new__title character varying,
new__creation_date timestamp with time zone,
new__creation_user integer,
new__context_id integer,
new__creation_ip character varying,
new__is_live boolean,
new__mime_type character varying,
new__text text,
new__storage_type cr_item_storage_type_enum,
new__security_inherit_p boolean,
new__storage_area_key character varying,
new__item_subtype character varying,
new__content_type character varying,
new__package_id integer DEFAULT NULL::integer
) returns int4 as $$
--
-- differs from other content_item__new/17 by
-- this version has 1st arg item_id vs. 3rd arg (differs as well from /20)
-- this version does not have a "locale" and "nls_language"
-- this version has "is_live" (like /20)
-- this version has "security_inherit_p"
DECLARE
new__description varchar default null;
new__relation_tag varchar default null;
new__nls_language varchar default null;
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
select c_root_folder_id from content_item_globals into v_parent_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,
new__security_inherit_p,
v_title,
new__package_id
);
insert into cr_items (
item_id, name, content_type, parent_id, storage_type, storage_area_key
) values (
v_item_id, new__name, new__content_type, v_parent_id, new__storage_type,
new__storage_area_key
);
-- 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',
new__creation_date,
null,
null,
v_parent_id,
'f',
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__title is not null or
new__text is not null then
-- call content_revision__new/13
v_revision_id := content_revision__new(
v_title,
new__description,
now(), -- publish_date
new__mime_type,
null, -- nls_language,
new__text,
v_item_id,
null, -- revision_id
new__creation_date,
new__creation_user,
new__creation_ip,
null, -- content_length
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;
--
-- content_item__new/17
--
create or replace function content_item__new(
new__name character varying,
new__parent_id integer,
new__item_id integer,
new__locale character varying,
new__creation_date timestamp with time zone,
new__creation_user integer,
new__context_id integer,
new__creation_ip character varying,
new__item_subtype character varying,
new__content_type character varying,
new__title character varying,
new__description character varying,
new__mime_type character varying,
new__nls_language character varying,
new__data integer,
new__package_id integer DEFAULT NULL::integer,
new__with_child_rels boolean DEFAULT true
) returns int4 as $$
--
-- This version passes "data" as integer (lob version), most other use
-- "text" and "storage_type"
--
DECLARE
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
select c_root_folder_id from content_item_globals into v_parent_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 new__with_child_rels = 't' and
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
-- call content_revision__new/12 (data is integer)
v_revision_id := content_revision__new(
v_title,
new__description,
now(), -- publish_date
new__mime_type,
new__nls_language,
new__data,
v_item_id,
null, -- revision_id
new__creation_date,
new__creation_user,
new__creation_ip,
new__package_id
);
elsif new__title is not null then
-- call content_revision__new/13 (data is null)
v_revision_id := content_revision__new(
v_title,
new__description,
now(), -- publish_date
new__mime_type,
new__nls_language,
null, -- data/text
v_item_id,
null, -- revision_id
new__creation_date,
new__creation_user,
new__creation_ip,
null, -- content_length
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;
--
-- content_item__new/17
--
create or replace function content_item__new(
new__name character varying,
new__parent_id integer,
new__item_id integer,
new__locale character varying,
new__creation_date timestamp with time zone,
new__creation_user integer,
new__context_id integer,
new__creation_ip character varying,
new__item_subtype character varying,
new__content_type character varying,
new__title character varying,
new__description character varying,
new__mime_type character varying,
new__nls_language character varying,
new__text character varying,
new__storage_type cr_item_storage_type_enum,
new__package_id integer DEFAULT NULL::integer
) returns int4 as $$
--
-- content_item__new/17 is deprecated, one should call /20
--
DECLARE
BEGIN
raise NOTICE 'content_item__new/17 is deprecated, call content_item__new/21 instead';
return 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,
null, -- data
null, -- relation_tag
'f', -- is_live
new__storage_type,
new__package_id,
't' -- with_child_rels
);
END;
$$ language plpgsql;
--
-- content_item__new/21
--
create or replace function content_item__new(
new__name character varying,
new__parent_id integer,
new__item_id integer,
new__locale character varying,
new__creation_date timestamp with time zone,
new__creation_user integer,
new__context_id integer,
new__creation_ip character varying,
new__item_subtype character varying,
new__content_type character varying,
new__title character varying,
new__description text,
new__mime_type character varying,
new__nls_language character varying,
new__text character varying,
new__data text,
new__relation_tag character varying,
new__is_live boolean,
new__storage_type cr_item_storage_type_enum,
new__package_id integer DEFAULT NULL::integer,
new__with_child_rels boolean DEFAULT true
) returns int4 as $$
DECLARE
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
select c_root_folder_id from content_item_globals into v_parent_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 new__with_child_rels = 't' and
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
-- call content_revision__new/13
v_revision_id := content_revision__new(
v_title,
new__description,
now(), -- publish_date
new__mime_type,
new__nls_language,
new__data,
v_item_id,
null, -- revision_id
new__creation_date,
new__creation_user,
new__creation_ip,
null, -- content_length
new__package_id
);
elsif new__text is not null or new__title is not null then
-- call content_revision__new/13
v_revision_id := content_revision__new(
v_title,
new__description,
now(), -- publish_date
new__mime_type,
new__nls_language,
new__text,
v_item_id,
null, -- revision_id
new__creation_date,
new__creation_user,
new__creation_ip,
null, -- content_length
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;
OpenACS – The Toolkit for Online Communities : ACS API Browser : All PL/SQL Subprograms : One PL/SQL Subprogram
Begin main content
