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.2 -r1.3
--- openacs-4/packages/new-portal/www/portal-delete.tcl	5 Oct 2001 01:59:56 -0000	1.2
+++ openacs-4/packages/new-portal/www/portal-delete.tcl	24 Oct 2001 18:54:10 -0000	1.3
@@ -20,6 +20,6 @@
 db_dml delete_portal "
 delete from portals where portal_id = $portal_id"
 
-portal::delete_portal $portal_id
+portal::delete $portal_id
 
 ns_returnredirect "index"