oracle8.1.6
select g.comment_id,
r.title,
r.mime_type,
o.creation_user,
acs_object.name(o.creation_user) as author,
o.creation_date
$content_select
from general_comments g,
cr_revisions r,
acs_objects o
where g.object_id = :object_id and
r.revision_id = content_item.get_live_revision(g.comment_id) and
o.object_id = g.comment_id
$context_clause
$my_comments_clause
order by $orderby
select g.comment_id,
r.title,
r.content,
r.mime_type,
o.creation_user,
to_char(o.creation_date, 'MM-DD-YYYY') as creation_date,
p.first_names || ' ' || p.last_name as author
from general_comments g,
cr_items i,
cr_revisions r,
acs_objects o,
persons p
where g.object_id = :object_id and
i.item_id = g.comment_id and
r.revision_id = i.live_revision and
o.object_id = g.comment_id and
p.person_id = o.creation_user
order by creation_date
begin
:1 := acs_message.new (
message_id => :comment_id,
title => :title,
mime_type => :comment_mime_type,
data => empty_blob(),
context_id => :context_id,
creation_user => :user_id,
creation_ip => :creation_ip,
is_live => :is_live
);
end;
select content_item.get_latest_revision(:comment_id) as revision_id
from dual
update cr_revisions
set content = empty_blob()
where revision_id = :revision_id
returning content into :1