Index: openacs-4/contrib/packages/general-comments/tcl/general-comments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/general-comments/tcl/Attic/general-comments-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/general-comments/tcl/general-comments-procs-postgresql.xql	28 May 2003 00:54:13 -0000	1.2
+++ openacs-4/contrib/packages/general-comments/tcl/general-comments-procs-postgresql.xql	5 Jun 2003 00:50:27 -0000	1.3
@@ -3,9 +3,8 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="general_comments::create_coment.insert_comment">
+<fullquery name="general_comments::general_comment::create.insert_comment">
     <querytext>
-
 	select general_comment__new (
 		:comment_id,
 		:object_id,
@@ -14,17 +13,32 @@
 		:context_id,
 		:title,
 		:description,
-		:empty_blob(),
-		:creation_user,	
-		:creation_date,
+		:content,
+		:user_id,	
+		now(),
 		:creation_ip,
-		:comment_mime_type
+		:comment_mime_type,
 		:is_live
-	);
+	)
+    </querytext>
+</fullquery>
 
+<fullquery name="general_comments::general_comment::create.get_revision">
+    <querytext>
+	select content_item__get_latest_revision(:comment_id) as revision_id
     </querytext>
 </fullquery>
 
+<fullquery name="general_comments::general_comment::create.set_content">
+    <querytext>
+	update cr_revisions
+	set content = :content
+	where revision_id = :revision_id
+    </querytext>
+</fullquery>
+
+
+
 <fullquery name="general_comments_get_comments.get_comments">      
       <querytext>
       
@@ -45,6 +59,7 @@
                     r.revision_id = i.live_revision and
                     o.object_id = g.comment_id
               order by o.creation_date
+
       </querytext>
 </fullquery>