Index: openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-assign-add-edit.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl	3 Jun 2004 21:32:13 -0000	1.10
+++ openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl	22 Jun 2004 00:11:46 -0000	1.11
@@ -194,7 +194,13 @@
         regexp {(.*),(.*)} $pl match task_id_v num_value
 
         set t_id  $task_id_v
-        set r_id  $assignment_role($pl)
+
+        if {[exists_and_not_null assignment_role($pl)]} {
+            set r_id  $assignment_role($pl)
+        } else {
+            set r_id [pm::role::default]
+        }
+
         set p_id  $assignment_party($pl)
 
         db_dml add_assignment { }
@@ -270,7 +276,13 @@
         regexp {(.*),(.*)} $pl match task_id_v num_value
 
         set t_id  $task_id_v
-        set r_id  $assignment_role($pl)
+
+        if {[exists_and_not_null assignment_role($pl)]} {
+            set r_id  $assignment_role($pl)
+        } else {
+            set r_id [pm::role::default]
+        }
+
         set p_id  $assignment_party($pl)
 
         db_dml add_assignment { }