Index: openacs-4/packages/acs-person/www/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-person/www/delete-2.tcl	24 Sep 2002 05:23:52 -0000	1.1
+++ openacs-4/packages/acs-person/www/delete-2.tcl	26 Sep 2002 03:31:00 -0000	1.2
@@ -1,15 +1,15 @@
 ad_page_contract {
 
   @author Jon Griffin jon@jongriffin.com
-  @creation-date 2002-01-16
+  @creation-date 2002-09-23
   @cvs-id $Id$
 } {
-  contact_id:integer,notnull
+  acs_person_id:integer,notnull
 }
 
-ad_require_permission $contact_id delete
+ad_require_permission $acs_person_id delete
 
-db_exec_plsql contact_delete {
+db_exec_plsql person_delete {
 
 }
 
Index: openacs-4/packages/acs-person/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-person/www/delete.tcl	24 Sep 2002 05:31:25 -0000	1.2
+++ openacs-4/packages/acs-person/www/delete.tcl	26 Sep 2002 03:31:00 -0000	1.3
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 
 } {
-   person_id:integer,notnull
+   acs_person_id:integer,notnull
 }  -validate {
     person_exists -requires {acs_person_id} {
 	if ![db_0or1row person_exists {
Index: openacs-4/packages/acs-person/www/delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-person/www/delete.xql	24 Sep 2002 05:31:59 -0000	1.2
+++ openacs-4/packages/acs-person/www/delete.xql	26 Sep 2002 03:31:00 -0000	1.3
@@ -13,7 +13,7 @@
 <fullquery name="person_select">      
       <querytext>
       
-    select person_id,
+    select acs_person_id,
         given_name || ' ' || family_name as name
     from acs_persons
     where acs_person_id = :acs_person_id