oracle8.1.6
select acs_object_id_seq.nextval from dual
update cr_revisions
set mime_type = :mime_type,
content = empty_blob()
where revision_id = :revision_id
returning content into :1
update cr_revisions
set content_length = dbms_lob.getlength(content)
where revision_id = :revision_id
begin
:1 := content_item.new (
name => :name,
content_type => 'image',
context_id => :term_item_id,
creation_user => :user_id,
creation_ip => :peeraddr
);
end;
begin
:1 := content_revision.new(
item_id => :new_item_id,
title => :title,
description => :description,
creation_user => :user_id,
creation_ip => :peeraddr
);
end;
update cr_revisions
set mime_type = :mime_type,
content = empty_blob()
where revision_id = :new_revision_id
returning content into :1
update cr_revisions
set content_length = dbms_lob.getlength(content)
where revision_id = :new_revision_id
begin
:1 := acs_object.new(
object_type => 'cr_item_child_rel',
context_id => :term_item_id
);
end;