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.13 -r1.14 --- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl 20 Apr 2004 21:13:45 -0000 1.13 +++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl 12 May 2004 22:55:45 -0000 1.14 @@ -16,7 +16,7 @@ } -ad_proc general_comment_new { +ad_proc -public general_comment_new { -object_id -comment_id -title @@ -28,7 +28,13 @@ -category -content } { - + Creates a comment and attaches it to a given object ID + + @return + + @error +} { + db_transaction { db_exec_plsql insert_comment { begin