Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	23 Apr 2002 16:14:50 -0000	1.28
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	24 May 2002 01:58:46 -0000	1.29
@@ -272,15 +272,6 @@
   </querytext>
 </fullquery> 
 
-<fullquery name="portal::template_p.select">      
-  <querytext>
-    select 1
-    from portals 
-    where portal_template_p = 't'
-    and portal_id = :portal_id
-  </querytext>
-</fullquery> 
-
 <fullquery name="portal::get_portal_template_id.select">      
   <querytext>
    select template_id
@@ -408,6 +399,17 @@
   </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, :ds_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::swap_element.get_my_sort_key_and_page_id">      
   <querytext>
   select sort_key as my_sort_key, page_id as my_page_id