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.7 -r1.8
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	20 Nov 2001 18:53:21 -0000	1.7
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	21 Nov 2001 16:18:33 -0000	1.8
@@ -169,6 +169,7 @@
    pretty_name		in dotlrn_communities.pretty_name%TYPE,
    description		in dotlrn_communities.description%TYPE,
    page_id		in dotlrn_communities.page_id%TYPE default null,
+   portal_template_id	in dotlrn_communities.portal_template_id%TYPE default null,
    package_id		in dotlrn_communities.package_id%TYPE default null,
    creation_date        in acs_objects.creation_date%TYPE
                            default sysdate,
@@ -205,6 +206,7 @@
    pretty_name		in dotlrn_communities.pretty_name%TYPE,
    description		in dotlrn_communities.description%TYPE,
    page_id		in dotlrn_communities.page_id%TYPE default null,
+   portal_template_id	in dotlrn_communities.portal_template_id%TYPE default null,
    package_id		in dotlrn_communities.package_id%TYPE default null,
    creation_date        in acs_objects.creation_date%TYPE
                            default sysdate,
@@ -215,6 +217,7 @@
  ) return dotlrn_communities.community_id%TYPE
  is
    c_id integer;
+   p_id integer;
  begin
    c_id := acs_group.new (
 	group_id => community_id,
@@ -225,11 +228,18 @@
 	group_name => community_key
    );
 
+   p_id := portal.new (
+	portal_template_p => 't'
+   );
+
+
    insert into dotlrn_communities
-   (community_id, community_type, community_key, pretty_name, description, package_id, page_id)
+   (community_id, community_type, community_key, pretty_name, description, package_id, page_id, portal_template_id)
    values
-   (c_id, community_type, community_key, pretty_name, description, package_id, page_id);
+   (c_id, community_type, community_key, pretty_name, description, package_id, page_id, p_id);
 
+
+
    return c_id;
  end;