Index: openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/general-comments/tcl/Attic/general-comments-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl	5 Jun 2003 00:50:27 -0000	1.4
+++ openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl	7 Jul 2003 01:51:04 -0000	1.5
@@ -30,7 +30,7 @@
     -title
     -comment_mime_type
     -context_id
-    {-user_id ""}
+    {-creation_user ""}
     {-creation_ip ""}
     {-parent_id ""}
     -package_id
@@ -59,13 +59,13 @@
 	# created comment. This is done here to ensure that
 	# a fail on permissions granting will not leave
 	# the comment with incorrect permissions. 
-	if {![empty_string_p $user_id]} {
+	if {![empty_string_p $creation_id]} {
     	    permission::grant -object_id $comment_id \
-		              -party_id $user_id \
+		              -party_id $creation_user \
 		              -privilege "read"
 
 	    permission::grant -object_id $comment_id \
-		              -party_id $user_id \
+		              -party_id $creation_user \
 		              -privilege "write"
 
 	}