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.7 -r1.8
--- openacs-4/packages/logger/tcl/entry-procs.tcl	13 Jan 2005 13:58:22 -0000	1.7
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	29 Apr 2005 17:01:43 -0000	1.8
@@ -85,6 +85,20 @@
                  :entry_id)
              "
         
+	logger::project::get -project_id $project_id -array project_array
+	logger::variable::get -variable_id [logger::project::get_primary_variable -project_id $project_id] -array variable_array
+	set log_title "$project_array(name)\: [pm::task::name -task_item_id $task_item_id]: logged $value $variable_array(unit)"
+
+        pm::util::general_comment_add \
+            -object_id $task_item_id \
+            -title $log_title \
+            -comment $description \
+            -mime_type "text/html" \
+            -user_id [ad_conn user_id] \
+            -peeraddr [ad_conn peeraddr] \
+            -type "task" \
+            -send_email_p t
+
         pm::task::update_hours \
             -task_item_id $task_item_id \
             -update_tasks_p t