Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	21 Nov 2001 16:18:33 -0000	1.8
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	26 Nov 2001 18:58:35 -0000	1.9
@@ -218,6 +218,7 @@
  is
    c_id integer;
    p_id integer;
+   v_portal_name portals.name%TYPE;
  begin
    c_id := acs_group.new (
 	group_id => community_id,
@@ -228,7 +229,10 @@
 	group_name => community_key
    );
 
+   select pretty_name || ' portal template' into v_portal_name from dual;
+
    p_id := portal.new (
+	name => v_portal_name,
 	portal_template_p => 't'
    );