Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -r1.12.2.3 -r1.12.2.4
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	29 Nov 2004 20:04:17 -0000	1.12.2.3
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	9 Dec 2004 18:25:17 -0000	1.12.2.4
@@ -17,44 +17,22 @@
 
 
 ad_proc general_comment_new {
-    -object_id
-    -comment_id
-    -title
-    -comment_mime_type
-    -context_id
+    -object_id:required
+    -comment_id:required
+    -title:required
+    -comment_mime_type:required
+    -context_id:required
     {-user_id ""}
     {-creation_ip ""}
-    -is_live
-    -category
-    -content
+    -is_live:required
+    -category:required
+    -content:required
 } {
 
     db_transaction {
-	db_exec_plsql insert_comment {
-	    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;
-	}
+	db_exec_plsql insert_comment { }
 
-	db_dml add_entry {
-	    insert into general_comments
-            (comment_id,
-             object_id,
-             category)
-	    values
-            (:comment_id,
-             :object_id,
-             :category)
-	}
+	db_dml add_entry { }
 
 	db_1row get_revision {}