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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql	16 Feb 2019 09:33:45 -0000	1.11.2.2
@@ -0,0 +1,39 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="general_comment_new.insert_comment">      
+      <querytext>
+	     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
+		:rfc822_id,	        -- 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
+		-4,			-- 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
+	    )
+      </querytext>
+</fullquery>
+
+<fullquery name="general_comment_new.set_content">      
+      <querytext>
+    
+        update cr_revisions
+           set content = :content
+         where revision_id = :revision_id
+       
+      </querytext>
+</fullquery>
+ 
+</queryset>