Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	30 Jun 2004 16:41:54 -0000	1.10
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	30 Jun 2004 21:29:30 -0000	1.11
@@ -353,11 +353,32 @@
         }
 
         # project
+
         if {[string equal $type project]} {
 
-            # send out email
-            ns_log Notice "send project email"
+            set assignees [pm::project::assignee_email_list -project_item_id $object_id]
 
+            if {[llength $assignees] > 0} {
+
+                set to_address $assignees
+
+                set from_address [db_string get_from_email "select email from parties where party_id = :user_id" -default "nobody@nowhere.com"]
+                
+                set project_url "[parameter::get_from_package_key -package_key acs-kernel -parameter SystemURL][ad_conn package_url]one?project_item_id=$object_id"
+                
+                set subject "Project comment: $title"
+                
+                set content "$project_url\n\n$comment"
+                
+                pm::util::email \
+                    -to_addr  $to_address \
+                    -from_addr $from_address \
+                    -subject $subject \
+                    -body $content \
+                    -mime_type $mime_type
+            }
+
+
         }
     }