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.7 -r1.8
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	11 Jun 2004 20:58:13 -0000	1.7
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	11 Jun 2004 22:36:35 -0000	1.8
@@ -332,7 +332,7 @@
 
             if {[llength $assignees] > 0} {
 
-                set to_address [join $assignees ", "]
+                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"]
                 
@@ -378,7 +378,7 @@
     @author Jade Rubick (jader@bread.com)
     @creation-date 2004-06-10
     
-    @param to_addr
+    @param to_addr list of email addresses to send to
 
     @param from_addr
 
@@ -395,12 +395,14 @@
 
     set nice_text [ad_html_text_convert -from $mime_type -to "text/plain" $body]
 
-    acs_mail_lite::send \
-        -to_addr  "$to_addr" \
-        -from_addr "$from_addr" \
-        -subject "$subject" \
-        -body "$nice_text"
-    
+    foreach to $to_addr {
+
+        acs_mail_lite::send \
+            -to_addr  "$to" \
+            -from_addr "$from_addr" \
+            -subject "$subject" \
+            -body "$nice_text"
+    }
 }