Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	11 Jun 2002 04:20:10 -0000	1.17
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	12 Jul 2002 21:26:48 -0000	1.18
@@ -3,11 +3,10 @@
 <queryset>
 <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="portal::create.create_new_portal_and_perms">
+<fullquery name="portal::create.create_new_portal">
   <querytext>
 
-    begin
-    
+  begin
     :1 := portal.new ( 
     name => :name,
     layout_id => :layout_id,
@@ -16,27 +15,8 @@
     theme_id => :theme_id,
     context_id => :context_id
     );
-    
-    acs_permission.grant_permission ( 
-    object_id => :1,
-    grantee_id => :user_id,
-    privilege => 'portal_read_portal' 
-    );
-    
-    acs_permission.grant_permission ( 
-    object_id => :1,
-    grantee_id => :user_id,
-    privilege => 'portal_edit_portal'
-    );
+  end;
 
-    acs_permission.grant_permission ( 
-    object_id => :1,
-    grantee_id => :user_id,
-    privilege => 'portal_admin_portal'
-    );
-
-    end;
-
   </querytext>
 </fullquery>