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.16 -r1.17
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	30 Jun 2004 21:29:30 -0000	1.16
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2004 21:40:30 -0000	1.17
@@ -1658,6 +1658,7 @@
     {-project_item_id:required}
     {-role_id:required}
     {-party_id:required}
+    {-send_email_p "t"}
 } {
     Assigns a user to a project
     
@@ -1682,6 +1683,31 @@
         (:project_item_id, :role_id, :party_id)
     }
 
+    if {[string is true $send_email_p]} {
+        
+        set project_name [pm::project::name \
+                              -project_item_id $project_item_id]
+        
+        set project_url [pm::project::url \
+                             -project_item_id $project_item_id]
+        
+        set to_addr [cc_email_from_party $party_id]
+        set from_addr [cc_email_from_party [ad_conn user_id]]
+        
+        set subject "Assigned to project: $project_name"
+        
+        set content "You have been assigned to a project: $project_name
+
+Link: $project_url"
+
+        pm::util::email \
+            -to_addr $to_addr \
+            -from_addr $from_addr \
+            -subject $subject \
+            -body $content \
+            -mime_type "text/plain"
+    }
+
     return
 }
 
@@ -1726,19 +1752,28 @@
     
     @param project_item_id
 
-    @return 
+    @return party_ids of all users removed from the project
     
     @error 
 } {
 
+    set current_assignees [db_list get_assignees {
+        SELECT
+        party_id
+        FROM
+        pm_project_assignment
+        WHERE
+        project_id = :project_item_id
+    }]
+
     db_dml remove_assignment {
         DELETE FROM
         pm_project_assignment 
         WHERE
         project_id = :project_item_id
     }
 
-    return
+    return $current_assignees
 }
 
 
@@ -1823,3 +1858,50 @@
     }]
 
 }
+
+
+ad_proc -public pm::project::name {
+    -project_item_id:required
+} {
+    Returns the name for a project
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-07-01
+    
+    @param project_item_id
+
+    @return 
+    
+    @error 
+} {
+    return [db_string get_name {
+        SELECT
+        title
+        FROM
+        cr_revisions p,
+        cr_items i
+        WHERE
+        i.live_revision = p.revision_id
+        and i.item_id = :project_item_id
+    } -default ""]
+}
+
+
+ad_proc -public pm::project::url {
+    -project_item_id:required
+} {
+    Returns the URL for a project, when given the project_item_id
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-07-01
+    
+    @param project_item_id
+
+    @return 
+    
+    @error 
+} {
+
+    return "[ad_url][ad_conn package_url]one?project_item_id=$project_item_id"
+    
+}