postgresql7.1 select acs_message__new ( :comment_id, -- 1 p_message_id NULL, -- 2 p_reply_to current_timestamp, -- 3 p_sent_date NULL, -- 4 p_sender NULL, -- 5 p_rfc822_id :title, -- 6 p_title NULL, -- 7 p_description :comment_mime_type, -- 8 p_mime_type NULL, -- 9 p_text NULL, -- empty_blob(), -- 10 p_data 0, -- 11 p_parent_id :context_id, -- 12 p_context_id :user_id, -- 13 p_creation_user :creation_ip, -- 14 p_creation_ip 'acs_message', -- 15 p_object_type :is_live -- 16 p_is_live ) select content_item__get_latest_revision(:comment_id) as revision_id update cr_revisions set content = :content where revision_id = :revision_id begin perform acs_permission__grant_permission ( /* object_id => */ :comment_id, /* grantee_id => */ :user_id, /* privilege => */ 'read' ); perform acs_permission__grant_permission ( /* object_id => */ :comment_id, /* grantee_id => */ :user_id, /* privilege => */ 'write' ); return 0; end;