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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/portal-delete.tcl	3 Oct 2001 02:36:28 -0000	1.1
@@ -0,0 +1,18 @@
+# www/portal-delete.tcl
+
+ad_page_contract {
+    Deletes the specified portal
+
+    @author Arjun Sanyal
+    @creation-date 9/28/2001
+    @cvs-id $Id: portal-delete.tcl,v 1.1 2001/10/03 02:36:28 oracle Exp $
+} { 
+    portal_id:notnull,naturalnum
+}
+
+set user_id [ad_conn user_id]
+
+# XXX security!
+portal_delete_portal $portal_id
+
+ns_returnredirect "index"
Index: openacs-4/packages/new-portal/www/test-api.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/test-api.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/test-api.tcl	3 Oct 2001 02:36:40 -0000	1.1
@@ -0,0 +1,24 @@
+# www/test-api.tcl
+
+ad_page_contract {
+    Test the portals API
+
+    @author Arjun Sanyal
+    @creation-date 9/28/2001
+    @cvs-id $Id: test-api.tcl,v 1.1 2001/10/03 02:36:40 oracle Exp $
+} { 
+}
+
+set user_id [ad_conn user_id]
+
+# make a new portal
+set new_portal_id [portal_create_portal $user_id]
+
+# add an element
+set ds_name "NULL datasource"
+set foo [portal_add_element $new_portal_id $ds_name]
+
+#set up some params
+
+
+ns_returnredirect "index"