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;