Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	3 Jun 2004 21:32:13 -0000	1.16
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	21 Jun 2004 23:44:11 -0000	1.17
@@ -266,7 +266,14 @@
         regexp {(.*),(.*)} $pl match task_id_v num_value
 
         set t_id  $task_id_v
-        set r_id  $assignment_role($pl)
+
+        # if they leave out the role, then use the default role
+        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)
 
         # If there is a comment for this task, then display it
@@ -381,7 +388,14 @@
         regexp {(.*),(.*)} $pl match task_id_v num_value
 
         set t_id  $task_id_v
-        set r_id  $assignment_role($pl)
+
+        # if they leave out the role, then use the default role
+        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 { }