Index: openacs-4/packages/project-manager/www/comments/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/comments/add.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/project-manager/www/comments/add.tcl	12 Mar 2006 16:54:58 -0000	1.7
+++ openacs-4/packages/project-manager/www/comments/add.tcl	3 May 2006 18:02:11 -0000	1.8
@@ -41,6 +41,7 @@
 set show_role_p 1
 
 set assignee_list [list]
+
 if { $exclude_observers_p } {
     foreach assignee $assignees {
 	# Compare the role_id to the one get on observer_role_id
@@ -56,6 +57,7 @@
 	    } else {
 		lappend assignee_list [list "$name ($email)" $email]
 	    }
+
 	}
     }
 } else {
@@ -78,6 +80,24 @@
     lappend listed_emails [lindex $assignee 1]
 }
 
+    
+# Include subprojects
+foreach subproject_id [pm::project::get_all_subprojects -project_item_id $object_id] {
+    set sub_assignees [pm::project::assignee_role_list -project_item_id $subproject_id]
+    foreach assignee $sub_assignees {
+	if { [string equal [lsearch $observer_role_id [lindex $assignee 1]] "-1"] || $exclude_observers_p != 1 } {
+	    set name [contact::name -party_id [lindex $assignee 0]]
+	    set email [party::email -party_id [lindex $assignee 0]]
+	    
+	    if {[lsearch -exact $listed_emails $email] == -1} {
+		lappend assignee_list [list "$name ($email)" $email]
+		lappend listed_emails $email
+	    }
+	}
+    }
+}
+	
+
 set employee_list [group::get_members -group_id [group::get_id -group_name "Employees"]]
 foreach employee_id $employee_list {
     set name [contact::name -party_id $employee_id]