Index: openacs-4/packages/project-manager/www/assign-myself-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/Attic/assign-myself-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/assign-myself-postgresql.xql	4 Nov 2005 21:43:40 -0000	1.1
@@ -0,0 +1,24 @@
+<?xml varsion="1.0"?>
+<queryset>
+
+<fullquery name="check_assign">
+    <querytext>
+	select 
+		1
+	from
+		pm_task_assignment
+	where
+		task_id = :task
+		and role_id = :role_id
+		and party_id = :user_id
+    </querytext>
+</fullquery>
+
+<fullquery name="assign_tasks">
+    <querytext>
+        insert into pm_task_assignment (task_id, role_id, party_id)
+	values (:task, :role_id, :user_id)
+    </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/project-manager/www/assign-myself.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/assign-myself.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/assign-myself.adp	4 Nov 2005 21:43:40 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<formtemplate id="reassign"></formtemplate>
Index: openacs-4/packages/project-manager/www/assign-myself.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/assign-myself.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/assign-myself.tcl	4 Nov 2005 21:43:40 -0000	1.1
@@ -0,0 +1,56 @@
+# packages/project-manager/www/assign-myself
+ad_page_contract { 
+    Assign all the recieved tasks to the recieved role, default to lead.
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} {
+    task_item_id:multiple
+    {role_id "1"}
+    {return_url ""}
+}
+
+set user_id [ad_conn user_id]
+
+set page_title "[_ project-manager.Assign_myself]"
+set context [list $page_title]
+
+if { ![exists_and_not_null $return_url] } {
+    set return_url [get_referrer]
+}
+
+# To display the tasks in the ad_form
+set show_tasks [list]
+foreach task $task_item_id {
+    lappend show_tasks "\#$task"
+}
+set show_tasks [join $show_tasks ", "]
+
+ad_form -name "reassign" -form {
+    {task_item_id:text(hidden)
+        {value $task_item_id}
+    }
+    {return_url:text(hidden)
+        {value $return_url}
+    }
+    {show_tasks:text(text)
+        {label "[_ project-manager.Tasks]:"}
+        {value  $show_tasks}
+        {mode display}
+    }
+    {reassign_party:text(inform)
+        {label "[_ project-manager.Reassign]:"}
+	{value "[_ project-manager.Myself]"}
+    }
+} -on_submit {
+    
+    # We are going to reassign all the checked tasks to the user_id
+    foreach task $task_item_id {
+        # We need to check if the user_id is not assigned to the task_id as role_id first
+	if { ![db_string check_assign { } -default "0"] } {
+	    db_dml assign_tasks { }
+	}
+    }
+
+} -after_submit {
+    ad_returnredirect $return_url
+}