Index: openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql 28 Aug 2003 09:41:54 -0000 1.3
+++ openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql 29 Sep 2003 17:45:48 -0000 1.4
@@ -84,5 +84,48 @@
+
+
+ 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
+
+
+
+