Index: openacs-4/packages/new-portal/sql/oracle/api-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/api-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	1 Oct 2001 20:26:47 -0000	1.5
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	2 Oct 2001 21:14:58 -0000	1.6
@@ -75,8 +75,7 @@
 		);
 
 		insert into portals (portal_id, layout_id, name, owner_id) 
-			     values (v_portal_id, layout_id, name,
-			decode(owner_id, 0, NULL, owner_id)
+			     values (v_portal_id, layout_id, (name || to_char(v_portal_id)), owner_id)
 		);
 
 		return v_portal_id;