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 -N
--- openacs-4/packages/acs-person/www/delete.tcl	26 Sep 2002 03:31:00 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,36 +0,0 @@
-ad_page_contract {
-
-    Delete Confirmation page for acs-person
-
-    @author jon@jongriffin.com
-    @creation-date 2002-09-23
-    @cvs-id $Id: delete.tcl,v 1.3 2002/09/26 03:31:00 jong Exp $
-
-} {
-   acs_person_id:integer,notnull
-}  -validate {
-    person_exists -requires {acs_person_id} {
-	if ![db_0or1row person_exists {
-	}] {
-	    ad_complain "Person $acs_person_id does not exist"
-	    return 0
-	}
-	return 1
-    }
-} -properties {
-    title:onevalue
-    one_person:onerow
-}
-
-set title "Delete Person"
-set context_bar [ad_context_bar]
-set package_id [ad_conn package_id]
-set user_id [ad_conn user_id]
-
-# make sure they don't perform URL surgery
-ad_require_permission $acs_person_id delete
-
-db_1row person_select {
-} -column_array one_person
-
- 
\ No newline at end of file