Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	30 Jul 2003 23:36:08 -0000	1.2
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	31 Jul 2003 20:11:41 -0000	1.3
@@ -35,20 +35,26 @@
 
 }
 
+# --------------------------------------------------------------- #
+
 set user_id [ad_maybe_redirect_for_registration]
 
+# the unique identifier for this package
 set package_id [ad_conn package_id]
+set user_id    [ad_maybe_redirect_for_registration]
 
+# permissions
+
 if {[exists_and_not_null task_id]} {
     set title "Edit a task"
-    set context_bar [ad_context_bar "Edit Task"]
+    set context_bar [ad_context_bar [list "one?item_id=$project_item_id&project_id=$project_id" "One Project"] "Edit Task"]
+    permission::require_permission -party_id $user_id -object_id $package_id -privilege write
 } else {
     set title "Add a task"
-    set context_bar [ad_context_bar "New Task"]
+    set context_bar [ad_context_bar [list "one?item_id=$project_item_id&project_id=$project_id" "One Project"] "New Task"]
+    permission::require_permission -party_id $user_id -object_id $package_id -privilege create
 }
 
-ns_log Notice "before add_edit"
-
 ad_form -name add_edit -form {
     task_id:key
 
@@ -90,8 +96,6 @@
 
 } -select_query_name task_query -on_submit {
 
-    ns_log Notice "in select_query_name"
-
     set user_id [ad_conn user_id]
     set peeraddr [ad_conn peeraddr]