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.6 -r1.3.8.7 --- openacs-4/packages/logger/tcl/entry-procs.tcl 27 Jun 2005 20:38:10 -0000 1.3.8.6 +++ openacs-4/packages/logger/tcl/entry-procs.tcl 1 Jul 2005 21:36:47 -0000 1.3.8.7 @@ -87,18 +87,7 @@ 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