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.9 -r1.10
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	26 Nov 2001 18:58:35 -0000	1.9
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	26 Nov 2001 19:34:15 -0000	1.10
@@ -229,13 +229,30 @@
 	group_name => community_key
    );
 
-   select pretty_name || ' portal template' into v_portal_name from dual;
+   v_portal_name := pretty_name || ' portal template' ;
 
    p_id := portal.new (
 	name => v_portal_name,
 	portal_template_p => 't'
    );
 
+   acs_permission.grant_permission ( 
+   object_id => p_id,
+   grantee_id => creation_user,
+   privilege => 'portal_read_portal' 
+   );
+   
+   acs_permission.grant_permission ( 
+   object_id => p_id,
+   grantee_id => creation_user,
+   privilege => 'portal_edit_portal'
+   );
+   
+   acs_permission.grant_permission ( 
+   object_id => p_id,
+   grantee_id => creation_user,
+   privilege => 'portal_admin_portal'
+   );
 
    insert into dotlrn_communities
    (community_id, community_type, community_key, pretty_name, description, package_id, page_id, portal_template_id)