Index: openacs-4/packages/organizations/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/organizations/www/delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/organizations/www/delete.tcl	19 Jan 2004 20:31:40 -0000	1.1.2.1
@@ -0,0 +1,15 @@
+ad_page_contract {
+    Delete an organization
+    
+    @author Jade Rubick (jade@rubick.com)
+    @creation-date 2003-05-29
+    @cvs-id $Id: delete.tcl,v 1.1.2.1 2004/01/19 20:31:40 jader Exp $
+} {
+    organization_id:integer
+}
+
+permission::require_permission -object_id $organization_id -privilege delete
+
+db_exec_plsql organization_delete { }
+
+ad_returnredirect .