Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	28 Jun 2004 17:00:32 -0000	1.15
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	30 Jun 2004 21:29:30 -0000	1.16
@@ -1794,3 +1794,32 @@
         fullname
     }]
 }
+
+
+ad_proc -public pm::project::assignee_email_list {
+    -project_item_id:required
+} {
+    Returns a list of assignee email addresses
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-30
+    
+    @param project_item_id
+
+    @return 
+    
+    @error 
+} {
+
+    return [db_list get_addresses {
+        SELECT
+        p.email
+        FROM 
+        parties p,
+        pm_project_assignment a
+        WHERE
+        a.project_id = :project_item_id and
+        a.party_id = p.party_id
+    }]
+
+}