Index: openacs-4/contrib/packages/project-manager/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit.tcl,v
diff -u -r1.16.2.9 -r1.16.2.10
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	3 May 2005 17:37:05 -0000	1.16.2.9
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	4 May 2005 06:13:53 -0000	1.16.2.10
@@ -31,13 +31,18 @@
     context_bar:onevalue
     title:onevalue
 
+} -validate { 
 }
 
+
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
 set user_id    [ad_maybe_redirect_for_registration]
 
+# permissions. Check that user has write permission on the package.
+permission::require_permission -party_id $user_id -object_id $package_id -privilege write
+
 # terminology
 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
 set project_term_lower  [parameter::get -parameter "projectname" -default "project"]
@@ -59,7 +64,7 @@
     set context_bar [ad_context_bar "[_ project-manager.Edit_project_term]"]
 
     # permissions
-    permission::require_permission -party_id $user_id -object_id $package_id -privilege write
+    permission::require_permission -party_id $user_id -object_id $project_id -privilege write
 
 } else {
     set title "[_ project-manager.lt_Add_a_project_term_lo]"