Index: openacs-4/packages/new-portal/www/portal-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/portal-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/www/portal-delete.tcl	3 Oct 2001 02:36:28 -0000	1.1
+++ openacs-4/packages/new-portal/www/portal-delete.tcl	5 Oct 2001 01:59:56 -0000	1.2
@@ -13,6 +13,13 @@
 set user_id [ad_conn user_id]
 
 # XXX security!
-portal_delete_portal $portal_id
 
+db_dml delete_portal_perms "
+delete from acs_permissions where object_id = $portal_id"
+
+db_dml delete_portal "
+delete from portals where portal_id = $portal_id"
+
+portal::delete_portal $portal_id
+
 ns_returnredirect "index"