Index: openacs-4/packages/acs-person/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/add-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-person/www/add-edit.tcl	27 Sep 2002 00:08:32 -0000	1.3
+++ openacs-4/packages/acs-person/www/add-edit.tcl	27 Sep 2002 01:41:02 -0000	1.4
@@ -31,7 +31,7 @@
 set page_title_c "Create Person"
 
 if {[info exists acs_person_id]} {
-  ad_require_permission $acs_person_id write
+
   set page_title $page_title_e
   set context_bar [ad_context_bar [list "." $cbar_title ] [list "one?acs_person_id=$acs_person_id" $cbar_title] $page_title]
 } else {
@@ -80,6 +80,7 @@
   ad_script_abort
 
 } -edit_data {
+  ad_require_permission $acs_person_id write
 
   db_exec_plsql set_person { }
   ad_returnredirect "."