Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -r1.3.8.8 -r1.3.8.9
--- openacs-4/packages/logger/tcl/entry-procs.tcl	5 Jul 2005 17:54:49 -0000	1.3.8.8
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	15 Sep 2005 14:24:12 -0000	1.3.8.9
@@ -95,6 +95,20 @@
         if { $update_status_p } {
             pm::project::compute_status $project_item_id
         }
+
+	set log_comment_p [parameter::get -parameter "LogCommentsP" -default "0"]
+	if {$log_comment_p} {
+	    # add comment to task
+	    pm::util::general_comment_add \
+		-object_id $task_item_id \
+		-title "[_ logger.log_comment_title]" \
+		-comment $description \
+		-mime_type "text/plain" \
+		-user_id $creation_user \
+		-peeraddr [ad_conn peeraddr] \
+		-type "task" \
+		-send_email_p t
+	}
     }
     
     # Check cache, expire if it is a new user