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.6.2.14 -r1.6.2.15
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	25 Nov 2004 01:16:07 -0000	1.6.2.14
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	17 Dec 2004 23:00:59 -0000	1.6.2.15
@@ -1896,7 +1896,7 @@
     -project_item_id:required
 } {
     Returns a list of assignee email addresses
-    
+
     @author Jade Rubick (jader@bread.com)
     @creation-date 2004-06-30
     
@@ -1921,6 +1921,36 @@
 }
 
 
+ad_proc -public pm::project::assigned_p {
+    -project_item_id:required
+} {
+    Returns true if user has been assigned to a project
+
+    @author Richard Hamilton (ricky.hamilton@btopenworld.com)
+    @creation-date 2004-12-17
+    
+    @param project_item_id
+
+    @return
+    
+    @error 
+} {
+
+    set present_user_id [ad_conn user_id]
+
+    return [db_0or1row assigned_p {
+        SELECT
+        party_id
+        FROM
+        pm_project_assignment
+        WHERE
+        project_id = :project_item_id and
+        party_id = :present_user_id
+    }]
+
+}
+
+
 ad_proc -public pm::project::name {
     -project_item_id:required
 } {