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.3 -r1.3.8.4
--- openacs-4/packages/logger/tcl/entry-procs.tcl	5 Jan 2005 16:07:53 -0000	1.3.8.3
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	27 Apr 2005 07:21:19 -0000	1.3.8.4
@@ -84,7 +84,19 @@
                 (:task_item_id,
                  :entry_id)
              "
-        
+
+        logger::variable::get -variable_id [logger::project::get_primary_variable -project_id $project_id] -array variable_array
+
+        pm::util::general_comment_add \
+            -object_id $task_item_id \
+            -title "Logged $value $variable_array(unit)" \
+            -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