Index: openacs-4/contrib/packages/portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/portal-procs.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/portal/tcl/portal-procs.xql	12 Feb 2004 14:59:05 -0000	1.6
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.xql	12 Feb 2004 21:31:20 -0000	1.7
@@ -2,6 +2,16 @@
 
 <queryset>
 
+    <fullquery name="portal::new.get_elements">
+        <querytext>
+          select pd.name, pe.element_id
+          from portal_datasources pd, portal_elements pe, portal_pages pp
+          where pp.portal_id = :portal_id
+            and pe.page_id = pp.page_id
+            and pd.datasource_id = pe.datasource_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::delete.delete_permissions">
         <querytext>
             delete
@@ -165,6 +175,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::get_master_template_id.get_master_template_id">
+        <querytext>
+            select portal_id as master_template_id
+            from portals
+            where package_id = :package_id
+              and party_id is null
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::get_page_count.select_page_count">
         <querytext>
             select count(*)