oracle8.1.6
begin
:1 := content_item.new (
name => 'acs-mail message $body_id',
creation_user => :creation_user,
creation_ip => :creation_ip,
title => :header_subject,
nls_language => :nls_language,
text => :content,
storage_type => 'lob'
);
end;
begin
:1 := content_item.get_latest_revision ( :item_id );
end;
begin
content_item.set_live_revision(:revision_id);
end;
begin
:1 := content_item.new (
name => 'acs-mail message $body_id',
creation_user => :creation_user,
creation_ip => :creation_ip,
title => :header_subject,
nls_language => :nls_language,
storage_type => 'file'
);
end;
begin
:1 := content_item.get_latest_revision ( :item_id );
end;"
begin
content_item.set_live_revision(:revision_id);
end;
update cr_revisions
set content = empty_blob()
where revision_id = :revision_id
returning content into :1
begin
:1 := content_item.get_latest_revision ( :content_item_id );
end;
select r.content, i.storage_type
from cr_revisions r, cr_items i
where r.revision_id = $revision_id and
r.item_id = i.item_id
begin
:1 := acs_mail_body.new (
body_id => :body_id,
body_reply_to => :body_reply_to,
body_from => :body_from,
body_date => :body_date,
header_message_id => :header_message_id,
header_reply_to => :header_reply_to,
header_subject => :header_subject,
header_from => :header_from,
header_to => :header_to,
content_item_id => :content_item_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
end;
begin
:1 := acs_mail_body.body_p (:object_id);
end;
begin
:1 := acs_mail_body.clone (
old_body_id => :old_body_id,
body_id => :body_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
end;
begin
acs_mail_body.set_content_object (
body_id => :body_id,
content_item_id => :content_item_id
);
end;
begin
:1 := acs_mail_multipart.new (
multipart_id => :multipart_id,
multipart_kind => :multipart_kind,
creation_user => :creation_user,
creation_ip => :creation_ip
);
end;
begin
:1 := acs_mail_multipart.multipart_p (:object_id);
end;
begin
:1 := acs_mail_multipart.add_content (
multipart_id => :multipart_id,
content_item_id => :content_item_id
);
end;
begin
:1 := acs_mail_link.new (
mail_link_id => :mail_link_id,
body_id => :body_id,
context_id => :context_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
end;
begin
:1 := acs_mail_link.link_p (:object_id);
end;