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.15 -r1.16
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	18 Apr 2002 03:31:11 -0000	1.15
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	24 May 2002 01:58:46 -0000	1.16
@@ -12,7 +12,6 @@
     name => :name,
     layout_id => :layout_id,
     template_id => :template_id,
-    portal_template_p => :portal_template_p,
     default_page_name => :default_page_name,
     theme_id => :theme_id,
     context_id => :context_id
@@ -30,13 +29,11 @@
     privilege => 'portal_edit_portal'
     );
 
-    if :portal_template_p = 't' then
     acs_permission.grant_permission ( 
     object_id => :1,
     grantee_id => :user_id,
     privilege => 'portal_admin_portal'
     );
-    end if;
 
     end;
 
@@ -94,17 +91,6 @@
   </querytext>
 </fullquery> 
 
-<fullquery name="portal::add_element_to_region.template_insert">      
-  <querytext>
-    insert into portal_element_map
-    (element_id, name, pretty_name, page_id, datasource_id, region, state, sort_key)
-    select 
-    :new_element_id, name, pretty_name, :target_page_id, :ds_id, region, state, sort_key
-    from portal_element_map pem
-    where pem.element_id = :template_element_id
-  </querytext>
-</fullquery> 
-
 <fullquery name="portal::move_element.update">      
   <querytext>
     update portal_element_map