Index: openacs-4/packages/project-manager/www/add-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/add-edit-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/project-manager/www/add-edit-2.tcl 30 Apr 2005 07:17:46 -0000 1.3 +++ openacs-4/packages/project-manager/www/add-edit-2.tcl 26 May 2005 09:34:29 -0000 1.4 @@ -27,8 +27,10 @@ context_bar:onevalue title:onevalue +} -validate { } +permission::require_permission -object_id $project_item_id -privilege "read" # this is necessary for new projects if {![exists_and_not_null old_project_id]} { @@ -39,14 +41,14 @@ # the unique identifier for this package set package_id [ad_conn package_id] set subsite_id [ad_conn subsite_id] -set user_id [auth::require_login] +set user_id [ad_maybe_redirect_for_registration] set user_group_id [application_group::group_id_from_package_id \ -package_id $subsite_id] # terminology -set project_term [parameter::get -parameter "ProjectName" -default "Project"] -set project_term_lower [parameter::get -parameter "projectname" -default "project"] +set project_term [_ project-manager.Project] +set project_term_lower [_ project-manager.project] set use_goal_p [parameter::get -parameter "UseGoalP" -default "1"] set use_project_code_p [parameter::get -parameter "UseUserProjectCodesP" -default "1"] @@ -91,7 +93,7 @@ } \ -new_data { - ad_returnredirect -message "Project changes saved" "one?[export_url_vars project_item_id]" + ad_returnredirect -message "[_ project-manager.lt_Project_changes_saved]" "one?[export_url_vars project_item_id]" ad_script_abort } -edit_data { @@ -100,7 +102,7 @@ } -after_submit { - ad_returnredirect -message "Project changes saved" "one?[export_url_vars project_item_id]" + ad_returnredirect -message "[_ project-manager.lt_Project_changes_saved]" "one?[export_url_vars project_item_id]" ad_script_abort }