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.8.2.4 -r1.8.2.5
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	2 Jul 2004 23:13:49 -0000	1.8.2.4
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	13 Aug 2004 18:57:34 -0000	1.8.2.5
@@ -61,8 +61,6 @@
 }
  
 
-
-
 if {[string equal [llength task_id] 1] && [exists_and_not_null return_url]} {
 
     set open_p 0
@@ -129,7 +127,7 @@
     set context [list "Add $task_term assignments"]
 }
 
-permission::require_permission -party_id $user_id -object_id $package_id -privilege create
+permission::require_permission -party_id $user_id -object_id $package_id -privilege write
 
 
 set users_lofl "{{--Select Person--} {}} "
@@ -139,6 +137,9 @@
 set roles_lofl "{{--Select Role--} {}} "
 append roles_lofl [db_list_of_lists get_roles { }]
 
+# This is fundamentally wrong. It works for now, but needs to be
+# removed eventually. Perhaps I'll rewrite the whole section, and it
+# will just go away. 
 set process_task_id_pass [string map {" " "-"} $process_task_id]
 set revisions_pass       [string map {" " "-"} $revisions]
 set comment_pass         [string map {" " "-"} $comment_list]